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IDENTIFICATION 


PRODUCT CODE: AC-9218C-MC 


PRODUCT NAME: CZRJICO RPO4/5/6 FUNCTIONAL CONTROLLER TEST PART I 


DATE CREATED: MAY 1976 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR : PETE BLACKSTONE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT A CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 
COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED ft THIS DOCUMENT IS FURNISHED 
TO THE PURCHASER UNDER A LICENSE FOR USE OHN A SINGLE 
COMPUTER SYSTEMM AND CAN BE COPIED (WITH INCLUSION OF 
DIGITAL*S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE SBE PROVIDED IN 
WRITING BY DIGITAL. 


DIGITA EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1974,1978 DIGITAL EQUIPMENT CORPORATION 
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1.0 


ABSTRACT 


THIS DIAGNOSTIC IS USED TO _TEST RPO4/5/6 DEVICE CONTROL LOGIC 
CONNECTED TO AN RH17 OR RH70 CONTROLLER. 


IT USES THE DISK SURFACE AND THE DRIVE MECHANICS TO PROVE 

THE PROPER WORKING OF THE SUBSYSTEM. IT DOES NOT NEED A 
FORMATTED DISK PACK. A DISK PACK WITH NO VITAL INFORMATION 
WRITTEN ON IT IS ESSENTIAL. AFTER A SUCCESSFUL RUN (WITH 

NO ERRORS) OF THIS DIAGNOSTIC IT CAN BE ASSERTED THAT THE 

DCL IN THE RPO4/5/6 SUBSYSTEM WORKS SUCCESSFULLY WHILE STANDING 
ALONE. SYSTEMS INTERACTION AND DRIVE TIMING IS LEFT TO 

OTHER DIAGNOSTICS. THIS IS WITH THE ASSUMPTION THAT PROGRAMS 
DZRJGA AND DZRJHA HAVE BEEN RUN SUCCESSFULLY. 


REQUIREMENTS 
EQUIPMENT 


PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND A RP04/5/6 DISK 
SYSTEM. THE RPO4/5/6 DISK SYSTEM WILL CONSIST_OF AN RH11 
CONTROLLER, A DISK CONTROL LOGIC (DCL), A DEC 733 DISK 
DRIVE, AND ITS APPROPRIATE DISK PACK. THE DISK PACK NEED 
NOT BE FORMATTED. USED SECTION OF THE DISK SURFACE SHALL 
BE GOOD (HOLE FREE). THE SURFACE FOR THE FOLLOWING SECTORS 
MUST BE GOOD, THAT IS, FREE OF ANY HOLES OR SURFACE 


IRREGULARITY BEFORE ANY DATA ERROR CAN BE ATTRIBUTED TO 
THE LOGIC. 


CYLINDER 00, 
CYLINDER 00. 
CYLINDER 00. 
CYLINDER 01, 
CYLINDER 02, 
CYLINDER 03, 
CYLINDER 04, 
CYLINDER 05, 
CYLINDER 05, 
CYLINDER 06, 
CYLINDER 07, 
CYLINDER 08. 
CYLINDER RACK 
CYLINDER 236, TRACK 


STORAGE 

THIS PROGRAM REQUIRES 16K WORDS OF MEMORY 
PRELIMINARY PROGRAMS 

Hed cal eee dean tte ey ne neneee 


ORS 
AND IT ASSUMES THAT MAINDEC-11-DZRJH~(LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS. 


SECTOR 00 


ses 8 & & & 


BOSSSNSSSSSBSS 


ees 8 8 & & 8& 


SECTOR 21 
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3.0 


4.0 


LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
STARTING PROCEDURE 


SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN 
RH70 CONTROLLER. IT CAN BE SET AT THE FRONT PANEL, OR IN THE 
SOFTWARE SWITCH REGISTER IF THE OPERATOR SO DESIRES. SEE 
apna tan 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 
OP’ ON. 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 

START AT ADDRESS 204---TO SELECT NON-DEFAULT ADDRESSES 
START AT ADDRESS 210---FOR UNIT SELECTION 

START AT ADDRESS 220---FOR NO MANUAL INTERVENTION 


200 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RPO4/5/6S ON THE SYSTEM WILL BE 

TESTED ONE AT A TIME BEFORE ‘END PASS'’ IS PRINTED OUT. 

TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 

THAT IS POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER 
THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 

THAT IS POWERED UP. 


204 RESTART 

SAME AS START 200 WITH THE FOLLOWING EXCEPTION: THE 
PROGRAM WILL INTERROGATE THE OPERATOR FOR A NON-STANDARD 
C.S.R AND VECTOR ADDRESS BEFORE STARTING. ONCE THE 
QUESTIONS HAVE BEEN CORRECTLY ANSWERED, AND IT IS ALSO 
NECESSARY TO SELECT A PARTICULAR UNIT FOR TEST (TYPICAL 
PROGRAM EXECUTION FROM ADDRESS 210), OR IT IS NECESSARY 
TO RUN THE PROGRAM WITHOUT MANUAL INTERVENTION Aig hn 
PROGRAM EXECUTION FROM ADDRESS 220), THE PROCESSOR MA 

BE HALTED AND RESTARTED FROM THE DESIRED RESTART ADDRESS. 
IF ALL UNITS ARE TO BE CHECKED, THE PROCESSOR NEED NOT BE 
TOUCHED. THE PROGRAM WILL AUTOMATICALLY RESTART AT NADDRESS 
200 AFTER RECEIVING THE NEW DEVICE PARAMETERS. 


210 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 
NUMBER TO BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM. 


220 START 
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS STARTING 
ADDRESS THE PROGRAM WILL NOT RUN THOSE TESTS THAT NEED 
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MANUAL INTERVENTION. THIS IS RECOMMENDED ONLY FOR 
DEBUGGING WHERE THE ERROR IS NOT IN A TEST THAT REQUIRES MANUAL 
INTERVENTION 


PROGRAM AND/OR OPERATOR ACTION 
1. LOAD THE PROGRAM INTO MEMORY. 
SET STARTING ADDRESS ON THE SWITCH REGISTER 


2 
3. PRESS ‘LOAD ADDRESS"’. 
4 


SET ‘OPERATIONAL SWITCH SETTINGS’ (SEE SECTION 5.1) 
WORST CASE IS ALL SWITCHES DOWN. 


PRESS ‘‘START’’. 


FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE 

ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ‘END 
PASS'' IS PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR 
INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN ‘‘ACT~-11"" 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE 
SELECTED BEFORE "END PASS'' IS PRINTED. THE SECON 


D 
AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


IF THE PROGRAM IS BEIDNG RUN ON A SWITCHLES PROCESSOR (1. E. 
AN 11/34) IT WILL DETERMINE THAT A _HARWARE SWITCH REGISTER IS 
NOT PRESENT, AND WILL USE ‘‘SOFTWARE’’ SWITCH REGISTER. THE 
SETTINGS OF THE SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALED BY TYPING A ‘COBNTROL G*. THE PROGRAM 
WILL RECOGNIZE A ‘CONTROL G* AT ANY TIME EXCEPT WHEN IT IS AR 
A HIGHER PRIORITY PROCESSING AN RP04/5/6 INTERRUPT. THE 

“SOF TWARE'' SWITCH VALUE S ARE ENTERED AS AN OCTAL NUMBER 

IN RESPONSE TO PROMPTING FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNNN NEW = 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH 
REGISTER IMAGE ay i BE ENTERED. LEADING ZEROS ARE NOT 
REQUIRED. '‘R "CONTROL _U* FUNCTIONS MAY BE USED TO 
CORRECT TYPING ERRORS DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTER, THE ‘'SOF TWARE‘’ 
SWITCH REGISTER = ALSO BE USED. IF THE PROGRAM da fh ALL 
16 SWITCHES IN THE *UP* POSITION WHEN IT IS STARTED, 

SWITCH REGISTER REFERENCES WILL BE TO THE ‘'SOF TWARE‘* REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 
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INITIONS ARE GIVEN IN SECTION 9 ‘OPERATIONAL 
TINGS'’ HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 


SWITCH DE 
SWITCH SE 
HERE. 


DEF 


SWITCH 15 = HALT ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING 
CONTINUE’ WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN. 


SWITCH 14 = LOOP ON TEST 

WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOP 
ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS 
SWITCH IS SET WHEN THE PROGRAM IS IN TEST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY. 
ONE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED 
TEST IS TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 


SWITCH 13 - INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS ‘'STOP DRIVE X’’ 
WILL CONTINUE. AT THE END OF PASS ‘‘TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE X'’ WILL BE TRUE, THAT IS, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY SO. 


SWITCH 12 = RH70 CONTROLLER SELECT 

THIS SWITCH MUST BE SET AT THE: START OF THE PROGRAM WHEN THE 
DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70 

CONTROLLER. IT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED 
ARE CONNECTED TO AN RH11 CONTROLLER. 


SWITCH 11 = INHIBIT ITERATIONS 
WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL 
nly 8 EACH TEST FOUR TIMES BUT WILL DO EACH TEST 


SWITCH 10 - BELL ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THE "BELL'’ OR "‘ALARM'’ WILL BE SOUNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 IS SET YET INFORMATION IS NEEDED WHEN ANY ERROR 

IS DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. THEN IF THIS SWITCH IS 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 

IS PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 

THE CRROR IS NOT PRESENT. 


SWITCH 9 = LOOP ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED Pe 5 STATEMENT. IF ON THE SECOND TIME 
THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK TO 

THAT "'SCOPE’’ STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
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AS THE ERROR IS PRESENT AND THIS SWITCH IS SET. HOWEVER 

IF THE ERROR IS NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR 

IS ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

IS ALSO SET. DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


NOTE: SEE SECTION 8.3 


SWITCH @ = LOOP ON TEST IN SWR <7:0> 
THIS IS A SPECIAL SWITCH. WHEN SET SWITCHES 0 THRU 7 
MEANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE 
THIS MEANS THAT ANY SETTING OF SWITCH 


WHEN THIS SWITCH IS SET THEN SWITCHES 0 THRU 
7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR EXAMPLE 
WITH SWITCH 8 SET AND SWITCH 5 SET THE PROGRAM WILL LOOP 
ON TEST 10. HOWEVER THIS SETTING MUST BE DONE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TO 10 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN. WHEN THIS SWITCH IS NOT SET THEN SWITCHES 
O THRU 7 HAVE THE MEAING ITS NAME INDICATES. 
FOR EXAMPLE SWITCH 7 IS ‘‘STOP FURTHER COMPARES: THAT IS 
IF SWITCH 8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRST FEW 
WORDS SETTING SWITCH 7 batt WILL STOP FURTHER PRINTOUTS 

AND GO ON WITH THE TEST RATHER THAN PRINT 

S. HOWEVER IF THIS WAS DONE WITH SWITCH 11 

THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A_SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 8 BEING LOW IS WITH SWITCH 6, WHICH 
IS ‘ECC TEST-COMPARE END RESULT ONLY'’. THAT IS IF SWITCH 
8 IS NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


NOTE. SEE SECTION 8.3 


SWITCH 7 - STOP FURTHER COMPARES IF SwWO8 IS LOW. 

IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS NOT SET 
AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO AS THE 
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NAME INDICATES. FOR EXAMPLE IN A 256 WORD BUFFER IF ALL 

THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST. IT IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH 6 - TYPE ALL REGISTERS WITH ERROR IF SwO8 IS LOW 

IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET ae 

THIS SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON A 

INDICATED IN THE DESCRIPTION OF SWITCH 8. _ IF SuITCH 8 IS 
NOT SET AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO 

AS THE NAME INDICATES. THAT IS ON FINDING AN ERROR INSTEAD 
OF ONLY GIVING THE ERROR MESSAGE AND RELEVANT +9 t 

AS WILL BE DONE IF SWITCH 11 IS NOT SET BUT WILL ALSO 

GIVE ALL THE REGISTER CONTENTS (EXCEPT ‘DATA BUFFER’ RHDB) . 


SUB-ROUTINE ABSTRACTS 

SEE SECTION 9 ‘‘SUBROUTINES''. 

ERRORS 

ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 


PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RP04/5/6 


REGISTERS OR GOOD/RECEIVED DATA. IF THE ERROR OCCURRED IN A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 

ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 


IN THE EVENT eee 4-9 - DISK DRIVE BECOMES UNAVAILABLE TO THE 
CONTROLLER, POWERS -_OR CERTAIN ee STATUS BITS 
CANNOT BE CLEARED PRIOR’ TO THE START OF A TEST SEQUENCE - 
THIS INFORMATION WILL BE COMMUNICATED TO THE OPERATIOR. IN 
ADDITION, THE TTY BELL WILL RING AND THE PROGRAM WILL HALT. 
IT IS SUGGESTED THAT IF THIS HAPPENS, THE OPERATOR LOAD 
ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT 
TO SOLVE THE PROBLEM. IF THE FILURE CONTINUES TO OCCUR, 
THERE ARE TWO OPTIONS OPEN TO THE OPERATOR: 


1. LOOK IN THE TEST LISTING FOR THE ‘HALT’ 
INSTRUCTION AND REPLACE IT, PLUS THE TWO WORDS 
(‘TYPE ,CPHALT’’) ABOVE WITH ‘NOP'S. WITH TTY ERROR 
PRINTOUTS INHIBITED, A SCOPE LOOP CAN BE INITIATED 
FOR THE TEST IN QUESTION. 


2. GO BACK AND RERUN DZRPS, AS IT IS QUITE POSSIBLE 
THAT A HARD FAILURE HAS OCCURRED IN ONE OF THE 
HARDWARE REGISTERS. 


IT IS ALSO POSSIBLE TO CONTINUE FROM THE ‘HALT’ POINT, BUT 
THIS IS NOT RECOMMENDED AS ALL FOLLOWISNG TESTS WILL EXHIBIT 
THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 
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RESTRICTIONS 


BEFORE STARTING THE PROGRAM THE OPERATOR MUST HAVE THE 
DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B BUT 
MUST NEVER LEAVE IT IN THE PROGRAMMABLE STATE. 


SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
IT MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 
BECAUSE OF THE REQUIREMENT FOR IT TO BE SET WHEN USING AN 
RH70, THE PROGRAM CANNOT BE R 

SOFTWARE SWITCH REGISTER FEATURE WHILE ON AN 

BECAUSE THE ROUTINE WHICH GETS ‘‘SOFTWARE'’ SWITCH SETTINGS IS 
NOT OPERABLE WHEN IN CHAIN MODE. 


MISCELLANEOUS 
EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL TAKE APPROXIMATELY 1 
MINUTES PROVIDED AN OPERATOR IS PRESENT TO CARRY OUT THE 
TYPED INSTRUCTIONS IMMEDIATELY. SUBSEQUENT PASSES WILL TAKE 
30 SECONDS WHETHER AN OPERATOR IS THERE OR NOT. 


STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 
OPERATOR SELECTABLE SCOPE LOOPS 


HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
FOR INSTRUCTIONS REGARDING THE USAGE OF THIS TECHNIQUE, HIT “C 
ANY TIME WHILE THE PROGRAM IS RUNNING. ON HITTING AN ERROR 

IF THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK - 
USUALLY BACK TO THE BEGINNING OF THE TEST. 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
THE PROGRAM GOES a. TO CAN BE CHANGED. 
THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: 
iT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2. LOOP ON ERROR SWITCH MUST BE SET 
3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 
. THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 

THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME i. THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINU 


PROGRAM REVISION HISTORY 
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9.0 PROGRAM DESCRIPTION 
9.1 LOGIC DIVISION IN HARDWARE MODULES 


REGISTER BOARD (RG) = ERROR REGISTER 1 STATUS REGISTERS 
MUX FOR REGISTERS GO HANDLING REGISTER 
DECODE COMMAND DECODE EXECUTION OF 
MECH. COMMANDS 


SYNC. DATA BOARD (SN) = DATA CONTROL PARALLEL TO SERIAL 
SYNC. BYTE DETECT. 


SEEK AND SEARCH (SS) = SEEK LOGIC SEARCH LOGIC HEADER 
HANDL ING. 


ERROR CORRECTION (EC) = ECC LOGIC ay B “ie ge 283 
MUX FOR ERROR R 2 & 3 LOOK AHEAD 
REG. SECTOR COUNTER DATA FORMATION 
RING COUNTER. 


DUAL PORT (DP) - DUAL PORT ARBITRATION ATTENTION LOGIC 
SERIAL NO REGISTER MASS BUS REGISTER 
STORAGE 

DISK SURFACE USAGE 


SYMBOLS USED 
: CYLINDER 


S 
W 


EAD 

= TEST NUMBER 

cO, TO, SO 

TT22-W,R, TT23-R, T124-W.R, TT25-wW.R, TT26-W,R, TT35-W.R, TT37-W, TT50-W, TT51-W.R, TTS2-W.R, TTS5-W.R 
co, 70, $7 

TT27-W,R, TT37-W,R, TT40-R, TT41-W.R, TT42-W,R, TT43-W.R 


cO, 718, S21 
TT30-w, TT31-W.R 


C1, TO, SO 
bie R, TT31-W.R, TT53-W,R, TT54-W.R 


ie. $21 
a9 -W 


C2, TO, SO 
TT31-W.R 


C2, 118, S21 
TT31-wW 


ek ke mee ee ee kk ee ee ee ek kk ed ed ed ot od td 0d 2 OO I SI 


C3, T0, SO 
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TT31-W,R 


c3, 718, $21 
TT31-w 


C4 vg Pa 
TT31-w 


C4, 118, $21 
TT31-W 


C5, 10, 30° 
TT31-w. 


CS, 17, $6 
TT33-w.R, TT34-w.R 
CS, 118, $21 
TT31-w 


C6, TO, SO 
TT31-W.R 


C6, 118, S21 
TT31-W 


C7, 10, @ 
TT31-W.R 


C7, 118, S18 
TT31-W 


c8, TO, SO 
TT31-wW,R 


C8, 118, S21 
TT31-W 


C9 ee so 
TT31-w 


C9, 118, S21 
TT31-W, TT32-R 


C10, TO, SO 
TT31-wW,R 


C410, 118, S21 
TT36-w,R, TT50-w,R 


THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES 
IN DETAIL AND CAN BE USED AS AN INDEX TO THE LISTING. 

THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
Sane THAT ITEM WILL BE FOUND. 


mk ee ee ee kk kk kk ke ee ee eh ed ed ed ed ed od od ed ed od ot ot ot I oo I OO SD 
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609 


;*DRIVE MUST BE LOCKED ON PORT A OR PORT B 


;* INTERNAL PROGRAM MACROS BEGIN HERE 


LAER REE E REE REE KERR EHH 


: ALL MACRO CALLS BEGINNING WITH ‘'.$'' ARE SUPPLIED FROM AN 
EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE 
TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 


: 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: 
1 
1 
1 
1 
1 
1 
; 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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CZRJICO, RPO4/S/6 FCTNL ped 


C2RJIC.P11 


000174 
000176 


27-JUL-78 1 


005012 
043612 
004776 


004762 


. = 
MACY11 30A(1052) 27=JUL-78 13:06 PAGE 16 SEQ 0015 


TRAP CATCHER 


DISPREG: .WORD 0 
SWREG: .WORD 0 


SENDAD 
- WORD 


2000 
-SBTTL STARTING ADDRESSES 
RA: 

ADDMOD : 

@ABEGIN2 
@4BEGINI 


3;SOFTWARE DISPLAY REGISTER 
7;SOFTWARE SWITCH REGISTER 


331)SET LOC.46 TO ADDRESS OF SENDAD IN .$E0P 
i:2)SET LOC.52 TO 2000 


NORMAL START 
;START FOR ADDRESS-MODIF ICATION 
; JUMP TO SELECT DRIVE START 


; JUMP TO NO OPERATOR TESTS START 


z*STARTING ADDRESS 200 FOR NORMAL STARTS 
*THIS WILL TEST ALL DRIVES ON THE SYSTEM A SINGLE DRIVE AT A TIME 


i *STARTING ADDRESS 204 FOR NON-DEFAULT ADDRESS PARAMETERS 
;*AUTO RESTART AT ADDRESS 200 AFTER LOADING PARAMETERS 


z*STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
z*STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR 


;*AT THE DRIVE 





CZRJICO, RPO4/S/6 FCTNL CTLR1 


CZRJIC.P11 27-JUL-78 13:05 


658 001110 


MACY11 30A(10 
MEMOR 


D2 
52) 27=JUL-78 13:06 PAGE 17 
Y MANAGEMENT DEFINITIONS 


-=1110 


SEG 0016 





CZRJICO, RPO4/5/6 FCTNL CTLR1 
CZRJIC.P11 27-JUL-78 13:05 


Ww 
wi 


000377 


001224 


MACY11 30A(1052) 
COMMON TAG 


27-JUL-78 
S 


leleleleleleleleleleol lelelelelelelel ea) 


= 
ee 
ad 
v 


2 


0 
2 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


yield 


ti5> 
<12> 


¥ 
13:06 PAGE 18 


+s CONTAINS PASS COUNT 
THE TEST NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 


E ST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD' DATA 
ADDRESS OF ‘BAD' DATA 

"GOOD" DATA 

"BAD’ 


33 N DATA 
3 ;RESERVED--NOT TO BE USED 


3 sAUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 

; ADDRESS OF DISPLAY REGISTER 

3. TTY KBD STATUS 

iz TTY KBD BUFFER 

sz TTY PRINTER STATUS REG. ADDRESS 

sz TTY PRINTER BUFFER REG. ADDRESS 

5S CONTAING NULL CHARACTER FOR FILLS 
sCONTAINS # OF FILLER CHARACTERS rt 
: INSERT FILL CHARS. AFTER A ‘LINE 

:''TERMINAL AVAILABLE*’ FLAG tlcbios O=YES) 
* CONTAINS THE ADDRESS FROM 


STUSER DEF INED 
; :USER DEF INED 


NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
SECODE FOR BELL 
3 QUESTION MARK 
3; CARRIAGE RETURN 
7sLINE FEED 


SEQ 0017 
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7* ITEM 
051120 EM1 ;RPO04 DID NOT INTERRUPT 
;WAITED ON BIT DID NOT OCCUR 
067160 ;PC 


WAT PC 
‘BIT WAITED 


[RHCS1 CONTENTS 
001232 071506 7SERRPC ,WAITPC ,WAITBT ,WAITRE ,$BDDAT,CS1 
001234 072014 :0,0,0,0,0,0 


>*I1TEM2 
001236 051147 E ; INTERRUPT ENABLE BIT DOWN BUT 
zWAITED ON BIT DID NOT OCCUR 
001240 067160 a. — 


‘BIT WAITED 

REG ADDRESS 

sREG CONTENTS 

[RHCS1 CONTENTS 
001242 071506 7 SERRPC ,WAITPC ,WAITBT ,WAITRE ,SBDDAT,CS1 
001244 072014 :0,0,0,0,0,0 


001246 051236 E ;RP04 DID NOT INTERRUPT WHEN 
:WAITED ON BIT DID SET 
001250 067160 :PC 


ADDRE 
;RHCS1 CONTENTS 
001252 071506 7 SERRPC ,WAITPC ,WAITBT ,WAI TRE ,SBDDAT ,CS1 
001254 072014 :0,0,0,0,0,0 


7 *1 TEMG 
001256 051317 E ;WAITED ON BIT DID SET BUT 
:TIME IS IN ERR 
TIME IS GIVEN IN 10 MICRO SEC. 
; (DECIMAL) 
001260 067337 ; 
WAT PC 
‘BIT WAITED 
43+ ADDRESS 
TIME IN 10 MSEC 
001262 071526 TSERRPC ,WAITPC ,WAITBT ,WAITRE ,SBDDAT ,WAITIM 
001264 072023 :0,0,0,0,0,1 


3*1TEMS 
001266 051430 E ;RHAS DOES NOT CLEAR BY 
;MOVING IN ALL ONES 
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001270 067500 DHS 3PC 

sREG. ADDR. 

;GOOD DATA 

RECEIVED DATA 
001272 071546 DTS 3 SERRPC ,REGADR, $GDDAT , $BDDAT 
001274 072032 DF5 :0,0,0,0 


001276 051502 . EM6 ;LOADING RHER1 FOR ALL 
UNITS DID NOT SET ANY BITS 
iN RHAS-NO UNITS PRESENT 


[REG ADDR 
sRECEIVED DATA 
001302 071562 DT6 SERRPC ,REGADR,, SBDDAT 
001304 072037 DF6 , §0,0.0 


7 *1TEM7 
001306 051570 EM7 SPECIFIED oacaaae NONE XI STANT 


:SO ABORT 
001310 067716 DH7 :PC 
SADDR. OF REG. 
001312 071574 DT? ;SERRPC,TEMP1 
001314 072043 DF7 30,0 


7 *1ITEM10 
001316 051640 EM10 ;STOPED DRIVE HAS MOL BIT 


7 IN RHDS1 = 1 
001320 067756 DH10 ;PC 


001300 067617 DH6 


; TEST NO 
;FAILING REG ADDR 
CONTENTS OF RHCS1 
[CONTENTS OF RHCS2 
:CONTENTS OF RHDS1 
CONTENTS OF RHER1 
001322 071604 DT10 7 SERRPC ,S$TSTNM, $BDADR,CS1,CS2,DS1,ER1 


;*1TEM11 
001326 051707 EM11 WITH SPINDLE POWERED DOWN 
i RHCS2 SHOULD HAVE ONLY 
;UNIT NUMBER AND IR HIGH 
001330 067756 


3; TEST NO 

sFAILING REG. ADR 
;CONTENTS OF RHCS1 
; CONTENTS OF RHCS2 


RHER1 
001332 071604  SERRPC, $TSTNM,$BDADR,CS1,CS2,DS1,ER1 
001334 072046 :0,0,0,0,0,0,0 


:*ITEMI2 
001336 052014 EM1 ;AFTER A POWER UP WITH 
;NO PACK ACKNOWLEDGE COMMAND 
;RHDS1 SHOULD HAVE MOL=1, VV=0 
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001340 067756 DH10 ;PC 
: TEST NO 
;FAILING eyes ADDR. 


ER1 
071604 TSERRPC ,$TSTNM, SBDADR,CS1,CS2,DS1,ER1 
072046 0,0,0,0,0,0,0 


052122 EM13 sAFTER A POWER UP WITHOUT 
ANY INIT RHCS1 SHOULD 
HAVE GO=0, DVA=1, RDY=1 
;1E=0, DISREGARD 
7ALL OTHER BITS 

067756 P 


; TEST NO 

FAILING REGISTER ADDR. 

CONTENTS OF RHCS1 

CONTENTS OF RHCS2 

: CONTENTS OF oer 

[CONTENTS OF RHER1 
001352 071604 TSERRPC ,$TSTNM, SBDADR,CS1,CS2,DS1,ER1 
001354 072046 0,0,0,0,0,0,0 


7 *1TEM14 
001356 052244 EM14 ;AFTER POWER UP RHCC 


001360 067500 


;SHOULD BE=0 
PC 


ZREG. ADDR. 
:GOOD DATA 
SRECEIVED DAT 
001362 071546 DT5 ;SERRPC, REGADR, $GDDAT , SBDDAT 
001364 072032 DF5 :0,0,0,0 


> *ITEM15 
001366 052317 —EM15 oe tan ACKNOWLEDGE CAUSED 


RROR 
;GOOD DATA IS BEFORE COMMAND 
: RECEIVED DATA IS AFTER COMMAND 


sREG. ADDR. 

;GOOD DATA 

RECEIVED DATA 
001372 071546 DTS ; SERRPC ,REGADR, $GDDAT , SBDDAT 
001374 072032 DF5 :0,0,0,0 


s*ITEM16 
001376 052460 EM16 a a A NO-OP COMMAND CAUSED 


;GOOD DATA GIVES REGISTER 
:CONTENTS BEFORE COMMAND 
ZRECEIVED DATA GIVES REGISTER 
CONTENTS AFTER COMMAND 
067500 “PC 


001370 067500 DHS 


ok ee ce cee ee cee cel ce ce ceed ce ceed ed ceed eed ee eed eed ed od ed ed 





I 2 
CZRJICO, RPO4G/5/6 FCTNL CTLR1 MACY11 30A(1052) 27-JUL-78 13:06 PAGE 22 SEQ 0021 
CZRJIC.P11 27-JUL-78 13:05 ERROR POINTER TABLE 


;REG. ADDR. 

;GOOD DATA 

RECEIVED DATA 
001402 071546 DTS ; SERRPC ,REGADR, $GDDAT , SBDDAT 
001404 072032 DF5 :0,0,0,0 


3*1TEM17 
001406 052606 EM17 ;DRIVE CLEAR COMMAND 
; CAUSED AN ERROR 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
sRECEIVED DATA GIVES WHAT WAS 
: THERE AFTER COMMAND 


PC 
TREG. ADDR. 
;GOOD DATA 
[RECEIVED DATA 
071546 DTS ; SERRPC ,REGADR , $GDDAT , $BDDAT 
072032 DF5 :0,0,0,0 


3 *1TEM20 
052743 EM20 ;READ-IN COMMAND GAVE AN ERROR 
;GOOD DATA HAS WHAT te re BE THERE 
TRECEIVED DATA HAS WHAT WAS 
cA TER COMMAND 


;REG. ADDR. 

;GOOD DATA 

sRECEIVED DATA 
071546 DT5 : SERRPC ,REGADR, $GDDAT , S$BDDAT 
072032 DF5 30,0,0,0 


067500 DH5 


067500 DH5 


*1TEM 21 
053107 EM21 ;RHCS1 CONTENTS DURING 
; COMMAND WAS IN ERROR 
067500 


071546 
072032 


053162 x EM22 :RHDS1 CONTENTS DURING 
‘COMM ANS WAS IN ERROR 
067500 


071546 
072032 


i ee ee ek ee ee ae kk ee ee ed ed ed ed ed ed ed nd ed od od oe =) = 


053235 EM23 UNLOAD COMMAND GAVE AN ERROR 
;GOOD DATA GIVES WHAT SHOULD 
7BE THERE 
RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


067500 
071546 
072032 





Stee on ee FCTNL 3 hd 
CZRJI 27-JUL-78 13:05 


001456 


001460 
001462 
001464 


001466 


053400 


067500 
071546 
072032 


053543 


072032 


053725 
070135 


071624 
072055 


054015 


067500 
071546 
072032 


054233 
070334 


071646 
072065 


054313 


MACY11 30A(1052) 


s*1TEM 24 
EM24 


s*ITEM 25 
EM25 


i*ITEM 26 
EM26 
DH26 


DT26 
DF 26 


i* ITEM 27 
EM27 


i* ITEM 30 
EM30 


DH30 


DT30 
DF 30 


i*1TEM 31 
EM31 


27-JUL-78 
ERROR POINTER TABLE 


J 2 
13:06 PAGE 23 


OFFSET COMMAND CAUSED AN ERROR 


;GOOD DATA IS WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE 


AFTER AN OFFSET COMMAND 


;RETURN TO CENTER LINE COMMAND 
; CAUSED AN ERROR 
26000 DATA GIVES WHAT SHOULD BE 


ZRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


J OFFSETS CAUSED AN ERROR 


. OF RHCS1 

. OF RHCS2 

. OF RHDS1 

. OF RHER1 

- OF RHER2 
CONT. OF RHER3 
;SERRPC,CS1,CS2,DS1,ER1,ER2,ER3 
:0,0,0,0,0,0,0 


;WRITE HEADER AND DATA 

;CAUSED IMPROPER REGISTER CHANGE 
; GOOD DATA GIVES WHAT 

;SHOULD BE THERE 

SRECEIVED DATA GIVES WHAT 

;WAS THERE AFTER COMMAND 


:WRITE HEADER AND DATA 
; CHANGED WRITE FROM BUFFER 
‘WORD NO 

;GOOD DATA 


;BAD DATA 
;SERRPC ,ERWORD , $GDDAT , SBDDAT 


. 
e e e e 


;READ HEADER AND DATA CAUSED 


SEQ 0022 


an 
Nn 
> oie oe] 


ee eer eae eee eee ee ee ee ee eee ee ee ee eer ee eee ee ee ee ee ee ee ee ee ee ee ee eee Ss SS 


Poon ame wre wee Wenn” © 
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‘ale! 
NSN 
> o> 2) 


; IMPROPER REGISTER CHANGE 

;GOOD DATA HAS WHAT SHOULD 
;BE THERE 

RECEIVED DATA GIVES WHAT 

;WAS THERE AFTER COMMAND 


072032 


054530 EM32 ;WRITE HEADER AND DATA FOLLOWED 
;BY A READ HEADER AND DATA 
; CAUSED A READ/WRITE ERROR 
070334 
071646 
072065 


054637 : EM33 Cone. CAUSED IMPROPER REGISTER 


; CHAN 
;GOOD DATA GIVES WHAT SHOULD BE THERE 
Hy MAb og DATA GIVES WHAT WAS THERE AFTER 


. 
. 


067500 
071546 
072032 


055041 EM34 READ DATA INCORRECT 
070334 
071646 
072065 


-* 

055065 EM35 WRITE DATA COMMAND CAUSED 
; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES REGISTER 
CONTENTS AFTER WRITE DATA 

067500 

071546 

072032 


055303 4 EM36 :WRITE DATA COMMAND CHANGED 
‘WRITE FROM BUFFER 
070334 


i*1TEM 37 
EM37 


— CAUSED AN 
ta pars GIVES WHAT SHOULD 
RECEIVED DATA GIVES WHAT 
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fala) 
NN 
2» 


;WAS THERE AFTER SEEK COMMAND 


067500 
071546 
072032 


7 *ITEM 40 

055575 EM4O sWRITE CHECK CAUSED AN 
>; IMPROPER REGISTER CHANGE 
ee TH om GIVES WHAT SHOULD 
;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 

067500 

071546 

072032 


7 ITEM 41 
056004 EM41 ;LOCKING OUT WRITES BY WRITE 
;LOCK BUTTON CAUSED IMPROPER 
REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
BE THERE 


sRECEIVED DATA GIVES WHAT 
;WAS THERE AFTER WRITES 
[WERE LOCKED OUT BY 
; BUTTON 

067500 

071546 

072032 


s* ITEM 42 
056265 EM42 sATTEMPTING TO WRITE WITH WRITE 
;LOCKED OUT CAUSED IMPROPER 
;REGISTER CHANGE 
oa GIVES WHAT SHOULD 


:BE 
RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPT 

067500 

071546 

072032 


— BR oe SS oS OO 3 OP BB BH DP DOO OO OO OO 


ITEM 43 

056543 EM43 WRITING WITH WRITE LOCKED 
OUT CHANGED DISK DATA 
:GOOD DATA GIVES WHAT WAS 
[ON DISK BEFORE WRITE WITH 
WRITE LOUK WAS ATTEMPTED 
RECEIVED DATA GIVES WHAT WAS 
TREAD BACK AFTER WRITE WITH 
WRITE LOCK WAS ATTEMPTED 

070334 


*ITEM 44 
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001656 057105 EM44 ;ENABLING WRITES BY WRITE LOCK 

;BUTTON CAUSED AN ERROR 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER WRITE LOCK 
;BUTTON ENABLED WRITES 

067500 3 

071546 ; 

072032 : 


7*1TEM 45 
057377 EM45 ; TRANSFERRING ON LAST BLOCK IE. CYLINDER 
27410, SECTOR 21, TRACK 18 
[CAUSED IMPROPER REGISTER 


3 CHANGE 
; GOOD DATA GIVES WHAT SHOULD 
THERE 


=RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER TRANSFER 


_ 
ao 
Ns 
@ 


072032 


057673 ‘ EM46 :DATA READ FROM LAST 
“BLOCK IE. CYLINDER 410 
i SECTOR 21, TRACK 18 IS IN 


3 ITEM 47 
EM47 7 TRANSFERRING FROM NONEXI STANT 

;SECTOR CAUSED IMPROPER 

REGISTER CHANGE 

;GOOD DATA GIVES WHAT SHOULD 

:BE THERE 

;RECEIVED DATA GIVES WHAT WAS 

; THERE AFTER ATTEMPTED 

; TRANSFER 


2 RR 3 PB HO 8 OP BV BV TV HH TV SV OO 


067500 
071546 
072032 


060270 EMSO ; TRANSFERRING FROM NONEXISTANT 
SECTOR CAUSED DATA ERROR 
:GOOD DATA GIVES WHAT 
; SHOULD BE IN BUFFER 
RECEIVED DATA GIVES WHAT WAS 
IN BUFFER AFTER TRANSFER 


1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
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_ 
_ 
vw 
ww 


3*1TEM 51 
001726 060507 EMS1 :GIVING ILLEGAL FUNCTION CAUSED 
; IMPROPER REGISTER CHANGE 
+ and GIVES WHAT SHOULD BE 


3s THE 
;RECEIVED DATA GIVES REGISTER 
oes AFTER ILLEGAL FUNCTION 


REG. ADDR. 

:GOOD DATA 

SRECEIVED DATA 

; ILLEGAL FUNCTION 
071662 DT51 i SERRPC ,REGADR,$GDDAT , SBDDAT ,, ILLEGL 
072072 DF51 :0,0,0,0.0 


s*1TEM 52 
060754 EMS2 sWRITE DATA ON NONEXISTANT 
;SECTOR CAUSED IMPROPER 
REGISTER CHANGE 
26000 | eg GIVES WHAT SHOULD 


RE 
RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER ATTEMPTED 
[WRITE DATA 
067500 
071546 
072032 


ater EMS3 ;READ HEADER AND DATA AFTER 
070334 ‘A SEARCH CAUSED AN ERROR 


071646 
072065 


a kkk ka ak ik a ok ot a es SS os os es 
SSBVKALATASSSVSARANASSRIFALALIS SSNS 


0 0 0 
Wr 


7* ITEM 54 
061317 EMS4 ATTEMPTED OPERATION WITH 


:GOOD DATA GIVES WHAT SHOULD 
BE THERE 

RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER OPERATION 


er) 
SBRLRELR 


067500 
071546 
072032 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SS 
No 


7*ITEM 55 
061564 EM55 ;WRITING/READING WITH EXPECTED 


; G 
: GOOD — GIVES WHAT SHOULD 
;RECEIVED DATA GIVES WHAT 
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;WAS THERE AFTER OPERATION 

067500 

071546 

072032 

s*I1TEM 56 

062052 EMS6 ;DATA READ WITH AN EXPECTED 
s ADDRESS OVERFLOW ERROR IS 
; INCORRECT 

D NO 1 TO 260 SHOULD 


BE READ 
;WORD NOS 261 TO 266 SHOULD 
NOT CHANGE DUE TO READ 


ead ca cal cas anh sald ant anh ald 
WOONAUSWI— 


mee ed ed ad od od od = 


ronrononoefrereronrenrnr 


aS) 


s*ITEM 57 
EMS7 


Sette aaa DATA COMMAND 
G FORMAT BIT —— 


3 C 
: 6000 DATA GIVES WHAT SHOULD BE 


HERE 
SRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPTED DATA 
RANSFER 


067500 
071546 
072032 


;*ITEM 60 
062554 EM60 ATTEMPTING TO MODIFY REGISTER 
;DURING AN OPERATION CAUSED 
; IMPROPER REGISTER CHANGE 
[GOOD DATA GIVES WHAT SHOULD 


BE THERE 

arenes DATA bet WHAT WAS 
; THERE AFTER OPERATION 

— COMPLETE 


zREG. ADDR. 

GOOD DATA 

;RECEIVED ety 

:MODF ING REGISTER 
071700 DT60 7 SERRPC ,REGADR, $GDDAT , SBDDAT , SBDADR 
072100 DF 60 :0,0,0,0,0 


;*1TEM 61 
063165 EM61 ;DEVICE NOT AVAILBLE BEFORE COMMAND WAS TO BE GIVEN 
070744 DH61 a 


:PC OF JSR 

;RHCS1 CONTENTS 
071716 DT61 7 SERRPC ,$TSTNM,PCJSR, SBDADR 
072106 DF 61 


Pi o e e 
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;*1TEM 62 
002036 063246 EM62 ;RHDS1 HAS STATUS BITS STUCK AT ONE 
002040 071037 DH62 ;PC 


CONTENTS 
002042 071730 DT62 SSERRPC, STSTNM,PCJSR,$BDADR 
072112 DF62 ;0,0,0,0 


7*1TEM 63 
063327 EM63 RHDS1 CONTENTS DURING 
; COMMAND WAS IN ERROR 
067500 
071546 
002054 072032 


*ITEM 64 
002056 063403 EM64 ;RECALIBRATE COMMAND CAUSED 
: IMPROPER REGISTER CHANGE. 
‘SHER DATA GIVES WHAT SHOULD BE 


THERE . 
RECEIVED DATA GIVES WHAT WAS THERE 
AFTER COMMAND 


067500 
071546 
072032 


063622 ; INTERRUPT FAILING 
071132 ;PC 


; TEST NO 

;CONTENTS OF RHCS1 

;CONTENTS OF RHAS 

:CONTENTS OF RHDS1 
071742 sSERRPC,TSTNM,CS1,AS,DS1 
072116 DF65 3:0,0,0,0,0 


SESESR 


;* 1 TEM66 
063644 EM66 ;HEADER AND DATA COMMAND 
;FOR HEAD SELECTION TEST 
*CAUSED AN ERROR 
corte GIVES WHAT TRACK 
WAS BEING WRITTEN ON CYLINDER 0 
;SECTOR 0 


AUSWH—O 


071255 


we oS oe 
WWNWNWNANWNWNWAWWWWS 

MORO SS RS ooo oa 

mM —-OOON 
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— 
rein 


KEFEEERELE 
WONAULRWNH-OO 


SESEFESS 


& 


WWWNWWWG 
N 


me ee ee ek ed ek ed ed ed ad ed 
NNN 
Wr-OoO 


002102 
002104 


002106 


002124 


002126 


27-JUL-78 1 


071756 
072123 


064036 


070334 


070334 
071646 
072065 


064534 


067500 


071546 
072032 


065277 


067500 
071546 
072032 


065225 
070334 


071646 
072065 


MACY11 gy bigest 27-JUL-78 
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;*1TEM 71 
EM71 


dD 3 
13:06 PAGE 


30 


;SERRPC ,DST,ER1,ER2,ER3,CS1,CS2 
:0,0,0,0,0,0,0 


;READ HEADER AND DATA ERROR 
3 IN HEAD SELECTION TEST 
sFIRST FOUR WORDS GIVE HEADER 


NEXT WORDS ARE DATA 
;GOOD DATA WORDS GIVE 
; THE TRACK NUMBER IN 
BITS 4,5,6,7,8 


;READ HEADER AND DATA ERROR 
7 IN DIFFERENCE LINE TEST 
;WORD NOS. 1-4 GIVE 

HEADER 

;WORD NOS. 5-260 GIVE DATA 


[WHICH IS THE CYLINDER 
ADDRESS 


peters OPI CAUSED IMPROPER REGISTER 


; CHAN 

;GOOD DATA GIVES WHAT SHOULD 
BE THERE 

RECEIVED DATA GIVES WHAT WAS 
4 i as AFTER 3 INDEX PULSES 


; GOO 
SRECEIVED DAT 
SSERRPC, REGADR, S$GDDAT , $BDDAT 


Ve e 


;WHILE USING UNIBUS B 
Heit? DATA CAUSED IMPROPER REGISTER 


; CHANGE 
[GOOD DATA GIVES WHAT SHOULD BE THERE 


RECEIVED DATA GIVES WHAT WAS THERE AFTER 
OMMAND 


;WHILE USING UNIBUS B 
;READ DATA INCORRECT 


SEQ 0029 
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a = 
he 
aa 


s*1TEM 74 
EM74 


83 


002156 065277 ;WHILE USING UNIBUS B 

;WRITE DATA COMMAND CAUSED 

; IMPROPER REGISTER CHANGE 

;GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES REGISTER 
CONTENTS AFTER WRITE DATA 


B88 


067500 
071546 
072032 


SSEEESE 


000 
Wr 


065543 5 ;WHILE USING UNIBUS B 
;WRITE DATA COMMAND CHANGED 
;WRITE FROM BUFFER 


x 


070334 


uw 


300 
oo 


;WHILE USING UNIBUS B 

WRITE CHECK CAUSED AN 

; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
BE THERE 

RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


071546 
072032 


i*1TEM 77 
066103 EM77 CURRENT CYLINDER DOES NOT REFLECT DESIRED ‘RHCC’ 
071353 DH77 3PC 
PC OF JSR 
REGISTER ADDRESS 
;GOOD DATA 


;BAD DATA 
071776 DT77 7 SERRPC ,PCUSR,REGADR,$GDDAT , SBDDAT 
072133 DF77 :0,0,0,0,0 


3*ITEM 100 
066326 EM100 


ERROR AFTER ADDRESS PLUG CHANGE 
067500 DH5 ; 


sPC 

REGISTER ADDRESS 

:GOOD DATA 

RECEIVED DATA 

071546 DT5 ; SERRPC ,REGADR, $GDDAT , SBDDAT 
072032 DFS :0,0,0,0 


7* ITEM 101 
066410 EM101 


070135 DH26 


;UNIT DID NOT GO OFFLINE WHEN ADDR 
A ee WAS REMOVED 


‘CONT OF RHCS1 
“CONT OF RHCS2 
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CONT OF RHDS1 

CONT OF a 

SCONT OF RHER3 
071624 DT26 SSERRPC, cSt. e82, DS1,ER2,ER3 
072055 DF 26 :0,0,0,0,0,0,0 


s*I]TEM 102 
066472 EM102 : DID NOT COME BACK ONLINE WHEN 
PLUG WAS REPLACED 
070135 DH26 


OF RHCS1 
OF RHCS2 
OF RHDS1 
OF RHER2 
CONT OF RHER3S 
071624 i SERRPC,CS1,CS2,DS1,ER2,ER3 
072055 30,0,0,0,0,0,0 


066551 C REGISTER CONTENTS INCORRECT BEFORE A 
DIAGNOSTIC SEEK 

070135 i 
CONT OF RHCS1 


F RHERS 
071624 ‘ SERRPC, CS1,CS2,DS1,ER2,ER3 
072055 :0,0,0,0.0,0,0 


eae E :REGISTER CONTENTS INCORRECT AFTER A 
070135 “DIAGNOSTIC SEEK 


PC 
;CONT OF RHCS1 
sCONT OF RHCS2 


; RHER3 
071624 SSERRPC,CS1,CS2,DS1,ER2,ER3 
072055 :0,0,0,0,0,0,0 
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;*RH11 REGISTERS 


002266 000254 RPVEC: 254 ;RP04 VECTOR ADDRESS 


z*WORD COUNT REGISTER (RHWC) 
;*EACH BIT IS CALLED BY BIT NUMBER 


;*BUS ADDRESS REGISTER (RHBA) 
;*EACH BIT IS CALLED BY BIT NUMBER 


:*CONTROL AND STATUS REGISTER 2 (RHCS2) 


UNIT SELECT (BIT #0) 
UNIT SELECT (BIT #1) 
UNIT SELECT (BIT #2) 
;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
;UNIBUS B DC LO (BIT #4) 
CLEAR (BIT #5) 
; INPUT READY (BIT #6) 
;OUTPUT READY (BIT #7) 
MASS BUS PARITY ERROR (BIT #8) 
MISSED TRANSFER ERROR (BIT #9) 
;PROGRAM ERROR (BIT #10) 
NON EXISTANT MEMORY (BIT #11) 
NON EXISTANT DRIVE (BIT #12) 
;UNIBUS PARITY ERROR (BIT #13) 
000 WRITE CHECK ERROR (BIT #14) 
100000 ;DATA LATE (BIT #15) 


;*DATA BUFFER REGISTER (RHDB) 
;*EACH BIT IS CALLED BY BIT NUMBER 


SEQ 0032 
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27-JUL=78 13:05 


CZRJIC.P11 


_ 
vi 

Mronwnrn— 

WHO CONAUSWN—O O00 


YUMUByNVsys 


BU U GUGM NNMNRNN ANS 
wi 


ee ek a a a a a 2 ss 2 st os ot I I 


ERROR POINTER TABLE 
;*RPO4 REGISTERS 


:*CONTROL AND STATUS 1 REGISTER. 


000 
100000 
i*STATUS REGISTER (RHDS1) (401) 


000 
100000 


esterey #01 (RHER1) (402) 


000 
100000 


H 3 
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(#00) 


3;GO (BIT #0) 
; INTERRUPT —_ (BIT #6) 


READY (BIT # 

HIGH ORDER UNIBUS BITS (BIT 48) 
[HIGH ORDER UNIBUS BITS (BIT #9) 
SPORT SELECT (BIT #10) 

;DEVICE AVAILABLE (BIT #11) 
SMASSBUSS PARITY ERROR (BIT #13) 
; TRANSFER ERROR (BIT #14) 
:SPECIAL CONDITION (BIT #15) 


DRIVE FORWARD 5''/SEC. (BIT #0) 
DRIVE FORWARD 20°'/SEC. (BIT #1) 
DRIVE TO INNER GAVRD BAND (BIT #2) 


3GO REVERSE (BIT #3) 

[DIFFERENCE LESS THAN 64 (BIT #4) 
;DIFFERENCE EQUALS 1 (BIT #5) 

; VOLUME VALID (BIT #6) 

SDRIVE READY (BIT #7) 

;DRIVE PRESENT (BIT #8) 
ROGRAMABLE (BIT #9) 


:P 
[LAST SECTOR TRANSFERRED (BIT #10) 
[WRITE LOCK (BIT #11) 

:MEDIUM ON-LINE (BIT #12) 

[POSITIONING OPERATION IN PROGRESS (BIT #13) 
ZCOMPOSIT ERROR. (BIT #14) 

SATTENTION ACTIVE (BIT #15) 


; ILLEGAL FUNCTION (BIT #0) 
: ILLEGAL REGISTER (BIT #1) 
EGISTER MODIFICATION REFUSED (BIT #2) 
‘PARITY ERROR (BIT #3) 
;FORMAT ERROR (BIT #4) 
;WRITE CLOCK FAIL (BIT 7 


SADDRESS OVERFLOW ERROR (BIT #9) 


7 INVALID ADDRESS ERROR (BIT #10) 
[WRITE LOCK ERROR (BIT #11) 
:DRIVE TIMING ERROR (BIT #12) 
OPERATION INCOMPLETE (BIT #13) 
:DRIVE UNSAFE (BIT #14) 

DATA CHECK ERROR (BIT 15) 


7 *MAINTAINABILITY REGISTER (RHMR) (403) 


Arn AIAIAIAIA IAAI A LAA A ARR ARA 
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DMD= 1 ;DIAGINOSTIC MODE (BIT #0) 
MCLK= 2 ;MAINTAINABILITY CLOCK (BIT #1) 
MINX= 4 :MAINTAINABILITY INDEX (BIT #2) 

MSTCK= 10 ;MAINTAINABILITY SECTOR CLOCK (BIT #3) 
MRD= 20 4) 

MWR= 40 ; T #5) 

DTSY= 1000 [MAINTAINABILITY SYNC DETECTED (BIT #9) 
3 *ATTENTION SUMMARY PSEUDO=REGISTER (RHAS) (404) 


DEVICE 0 


1 
2 
3 
4 
5 
6 
7 


DEVICE 


:*DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (41) 
;*EACH BIT IS CALLED BY BIT NUMBER 


7*DRIVE TYPE REGISTER (RHDT) (#06) 
;*EACH BIT IS CALLED BY BIT NUMBER 


3 *LOOK-AHEAD REGISTER (RHLA) (407) 


EXTENSION 1 
SEXTENSION 2 
SEXTENSION 3 
EXTENSION 4 
ZEXTENSION 5 
ZEXTENSION 6 (BIT #5 
: SECTOR COUNT FIELD 


STRACK FIELD 
; TRACK FIELD 
STRACK FIELD 3 
40000 TRACK FIELD 4 (BIT 
TRK20= 100000 7 TRACK FIELD 5 (BIT 


7*ERROR REGISTER #2 (RHER2) (#10) 


WCU= 1 ;WRITE CURRENT UNSAFE (BIT #0) 
CSF= 2 ;CURRENT SINK FAILURE (BIT #1) 


mR UR ORR RRR RRR RR RR RRA AAAI AAAI ARIA IAI AIA AIAIAIAIANINININIAIANINIAINIANIANINIAIAIAININIIA) 
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oO 
Ns 
wD 


WRITE SELECT UNSAFE (BIT #2) 
CURRENT SWITCH UNSAFE (BIT #3) 
;MOTOR SEQUENCE ERROR (BIT #4) 
7 TRANSITIONS DETECTOR FAILURE (BIT #5) 
; TRANSITIONS UNSAFE (BIT #6) 
;FAILSAFE ENABLED (BIT #7) 
WRITE READY UNSAFE (BIT #8) 
“MULTIPLE HEAD SELECT (BIT #9) 
3;NO HEAD SELECTION (BIT #10) 
; INDEX ERROR (BIT #11) 
; 30VOLT UNSAFE (BIT #12) 
000 ;PLO UNSAFE (BIT #13) 
100000 SACUNSAFE (BIT #15) 


*OFFSET REGISTER (RHOF) (#11) 


OFFSET 25 MICRO INCHES (BIT #0) 
OFFSET 50 MICRO INCHES (BIT #1) 
OFFSET 100 MICRO INCHES (BIT #2) 
OFFSET 200 MICRO INCHES (BIT #3) 
OFFSET 400 MICRO INCHES (BIT #4) 
OFFSET 800 MICRO INCHES (BIT #5) 


OFFSET NEGATIVE (REVERSE) (BIT #5) 

;HEADER COMPARE INHIBIT (BIT #10) 

ERROR CORRECTION CODE INHIBIT (BIT #11) 
10000 3FORMAT BIT (BIT #12 


7*DESIRED CYLINDER ADDRESS (RHCA) (#12) 
;*EACH BIT IS CALLED BY BIT NUMBER. 


7*CURRENT CYLINDER ADDRESS (RHCC) (413) 
;*EACH BIT IS CALLED BY BIT NUMBER 


;*SERIAL NUMBER REGISTER (RHSN) (414) 
;*EACH IS CALLED BY BIT NUMBER 


7 *ERROR REGISTER #03 (RHER3) (415) 


;PACK SPEED UNSAFE (BIT #0) 

; VELOCITY UNSAFE (BIT #1) 

TANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
:DISK ee et Nae ERROR (BIT #4) 


BIT #6) 
“ADDRESS CHANGE ERROR (BIT #13) 
40000 SEEK INCOMPLETE (BIT #14) 


mm om mR RR RR RR RR RR RR RA AIR AAAI AAAI AIA IAI AIAIAIAIAIAIAIAIAIAIAIAINIANININIANINIAINININININIA) 
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100000 OCYL= 100000 ;OFF CYLINDER (BIT #15) 


7*ECC POSITION REGISTER (RHEC1) (416) 
3;*EACH BIT IS CALLED BY BIT NUMBER 


3*ECC PATTERN REGISTER (RHEC2) (417) 
;*EAC' BIT IS CALLED BY BIT NUMBER 


SEQ 0036 
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1707 .SBITL REGISTER ADDRESSES | 
1708 | 
1709 
1710 2. 
1711 2. 
ie :*RP04/5/6 DISK 1/0 REGISTER LOCATED IN THE RH11 CONTROLLER $ 
1714 002270 176722 RHDB: 176722 DATA BUFFER 2 
1715 002272 176702 RHWC: 176702 ;WORD COUNT 2 
1716 002274 176704 RHBA: 176704 ;BUS ADDRESS 2 
Fat 4 002276 176710 RHCS2: 176710 ;CONTROL AND STATUS 2 § 
hag :*RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC (DCL) $ 
1721 002300 176700 RHCS1: 176700 CONTROL AND STATUS 1 2 
1722 002302 176714 RHER1: 176714 sERROR #1 2 
1723 002304 176706 RHDST: 176706 ‘DESIRED SECTOR/TRACK ADDRESS 2 
1724 2 176740 RHER2: 176740 ; ERROR #2 2 
1725 002310 176732 RHOF 176732 sOFFSET 2 
1726 002312 176734 RHCA 176734 DESIRED CYLINDER ADDRESS 2 
1727 002314 176742 RHER3: 176742 ERROR #3 2 
1728 002316 176716 RHAS: 176716 ZATTENTION SUMMARY 2 
1729 002320 176724 RHMR: 176724 MAINTAINABILITY 2 
1730 002322 176712 RHDS1: 176712 “DRIVE STATUS 2 
1731 002324 176726 RHDT: 176726 DRIVE TYPE 2 
1732 002326 176730 RHSN: 176730 ; SERIAL NUMBER 2 
1733 002330 176744 RHEC1: 176744 ECC POSITION 2 
1734 002332 176746 RHEC2: 176746 ECC PATTERN 2 
1735 002334 176736 RHCC: 176736 CURRENT CYLINDER ADDRESS 2 
fe 002336 176720 RHLA: 176720 ; LOOK-AHEAD $ 
en :*ADDITIONAL I/O REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC | 
1740 902340 176750 RHBAE: 176750 BUS ADDRESS EXTENSION REGISTER 2 
ta 002342 176752 RHCS3: 176752 CONTROL AND STATUS REGISTER #3 ¢ 
1743 2 
it :*P=-CLOCK (KW11-P) I/O REGISTERS § 
1746 002344 172540 PCLCSR: 172540 CONTROL AND STATUS REGISTER 2 
1747 002346 172542 PCLBUF: 172542 : COUNT SET BUFFER 2 
1748 002350 172544 PCLCTR: 172544 : COUNTER 2 
1749 2 

2 

2 

2 

2 

P, 

é 

2 

é 

é 

< 

é 

< 

2 
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fale) 
NN 
> oP *) 


;*THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SNAPSHOTS 
;*ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED 


;*ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
7*FOR THE TIME JUST AFTER THE ‘'ERROR'’ ERROR COMMAND 


7*THIS ASSUMES THAT A REGISTER SNAPSHOT HAS BEEN TAKEN WHICH IS NOT 
*ALWAYS THE CASE = IF QUESTIONABLE CONTENTS APPEAR IN THE REGISTER 
>*PRINTOUTS, CHECK THE INLINE TEST CODE TO SEE IF THE REGISTER SNAPSHOT 
S*REFLECTS THE CURRENT STATE OF THE MACHINE 


;DATA BUFFER 
;WORD COUNT 
;BUS ADDRESS 
CONTROL AND STATUS 2 


oooo 


SERROR i STATUS 1 
;DESIRED SECTOR/TRACK ADDRESS 
;ER Pea We 


MMIMNMNMNNMNMNMNMNNN 


7 OF FSET 
;DESIRED CYLINDER ADDRESS 
ZERROR #3 


SATTENTION SUMMARY 
:MAINTAINABILITY 

:DRIVE STATUS 

DRIVE TYPE 

; SERIAL NUMBER 

sECC POSITION 

ECC PATTERN 

; CURRENT CYLINDER ADDRESS 
; LOOK~AHE AD 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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;*FUNCTION EQUATES 
;*TABLE OF FUNCTIONS FOR RHCS1 THEN ‘'GO'' BIT HAS TO BE SET 


NO OPERATION 
UNLOAD (STAND BY) 
BRATE 


; E CLEAR 
RELEASE (DUAL-PORT OPERATION) 
SEARCH COMMAND 


[WRITE CHECK DATA 

sWRITE CHECK HEADER AND DATA 
[WRITE DATA 

Meh BATA AND DATA (FORMAT) 


ter HEADER AND DATA 
; SEEK COMMAND 

SOF FSET COMMAND 
;RETURNTO CENTERLINE 
READ ances 


READIN: [COMPUTED ILLEGAL FUNCTION 


CISL RE RE RS he 


3 *DATA BUFFERS FOR READ/WRITE 


ONAUSWN—O 


WRFROM: .BLKW 274. :WRITE FROM THIS BUFFER 
REINTO: .BLKW 274. ;READ INTO THIS BUFFER 


Oo 09 Cd 00 00 CO 00 C0 00 Co 


ma kk hd ed ad od = Ls =) 
ed nd ed od ow) ws od 


& 
oo 


2. 
2. 
2. 
rd 
2. 
2. 
ra 
2. 
2. 
2. 
2. 
é: 
2 
2 
2. 
2. 
2 
2. 
2. 
2. 
2. 
2. 
2. 
2. 
2: 
2: 
2. 
2 
2 
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fate 


;*RESERVED CORE LOCATIONS 
SAVE REGISTER ADDRESS HERE 
SAVE ERROR WORD NUMBER HERE 
TEST NUMBE 
RPGVEC: CONTAINS ADDRESS OF LOCATION 
WHERE AN RPO4 INTERRUPT IS TO VECTOR TO 


THIS MUST BE MOVED INTO ‘RPVEC" TO BE 
sEFFECTIVE. 


OF STVL: OFFSET VALUE USED IN OFFSET TEST 


SAVERE: . . sBLOCK TO SAVE REGISTERS FOR PRETEST 

HARDWARE REGISTER SNAPSHOTS - THESE 

ARE USUALLY THEN CHANGED TO REFLECT 

EXPECTED CONDITIONS AFTER THE TEST 
FINALA: 7SAVE LOOK AHEAD REGISTER AT END OF OPERATION 
FINACC: 0 SAVE CURRENT CYLINDER REGISTER AT END OF OPERATION 


;*TABLE FOR ATTENTION BITS 
3 *ATTENTION TABLE 


002 43 ATABLE: .BYTE 1,2,4,10,20,40,100,200 


020 
200 
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:*FLAGS AND INTERNAL PROGRAM CONTROL WORDS 


UNITS: .BLKW 8. 
UNIT: WORD 0 
NOUNIT: .WORD 0 
NUNIT: 0 
NOPUSH: 


SELECT: . 
UNITSL: . 
UBUSB : 


ERFLG$: 0 
FIRST: 


ATTENT: 
TOTALAT: 


sTHIS IS FILLED WITH ~1 
[UNIT UNDER TEST 
NUMBER OF UNITS PRESENT 


;USED TO KEEP TRACK OF UNIT UNDER TEST 
[USED TO DETERMIN IF THERE ARE MORE 
ONE UNIT 


> THAN 

sALL_ONES INDICATE NONE OF THE OPERATOR 

ian oe te TESTS WILL BE PERFORMED 
ALL_ONES INDICATE UNIT TO BE SELECTED 

[UNIT NO. SELECTED 

71F ZERO UNIBUS PRESENT 

:1F oe NO UNIBUS B 

ERROR F 

IF ZERO WILL TYPE HEADER 

71F ONES WILL NOT TYPE HEADER 


ATTENTION BIT FOR PRESENT UNIT 
; TOTAL ATTENTION BITS 


;RPO6 DEVICE TYPE FLAG LOCATION 

;MEMOREX RPO4 DEVICE TYPE FLAG 

HIE = 1, PROGRAM IS RUNNING ON RWPO4 SYSTEM 
= 0, PROGRAM IS RUNNING ON RJPO4 

‘INITIAL UNIT NO. = USED DURING 

CHECKING ALL ADDRESS PLUG ADDRESSES 


; TEMP STORAGE 
; TEMP STORAGE 
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- SBTTL 
-SBTTL **DIAGNOSTIC CODE** 
. SBTTL 


-SBTTL SETUP TESTS 


012737 177777 BEGIN1: #~1 , AANOPUSH ; JUMP OVER OPERATOR REQUIRED TESTS 
tee eA 004726 Hs @ASELECT DO NOT SELECT UNIT 


000412 START 
012737 177777 BEGIN2: #~1 ,@ASELECT SELECT UNIT 
005037 004724 @ANOPUSH ;DO NOT JUMP OVER ANY TEST 
04 BR START 
004726 BEGIN: C @ASELECT :D0 NOT SELECT UNIT 
004724 C @ANOPUSH ;DO NOT JUMP OVER ANY OPERATOR 
; INTERVENTION TESTS - NORMAL RUN 


START: 


001100 MO #SCMTAG ,R6 3zFIRST LOCATION TO BE CLEARED 
(R6) + 3zCLEAR MEMORY LOCATION 
001140 os -R6 pyre 


;LOOP BACK IF NO 
001000 #STACK, SP SETUP THE STACK POINTER 
044730 #SSCOPE ,a#IOTVEC™ #107 VECTOR FOR SCOPE ROUTINE 
000340 #340, aMIOTVEC+2 ;:LEVEL 7 
047126 #SERROR , AMEMTVEC :EMT VECTOR FOR ERROR ROUTINE 
000340 #340 ,AMEMTVEC+2 eeLEV EL 
050652 HSTRAP ,Q@ATRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS 
000340 000036 #340, @#TRAPVEC+2;LEVEL 7 
050736 #SPWRDN , AAPWRVEC fit FAILURE VECTOR 
000340 #340, aMPWRVEC+2 ;:LEVEL 7 
001212 $TIMES ‘SONITIALIZE NUMBER OF ITERATIONS 
001214 SESCAPE CLEAR THE ESCAPE ON ERROR ADDRESS 
000001 #1 , SERMAX ALLOW ONE ERROR PER TEST 
005142 1106 #.,$LPADR :3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
005150 #. ,SLPERR 3;SETUP THE ERROR LOOP ADDRESS 
000004 @WERRVEC,-(SP) :; TOR 
005216 #64$, AHERRVEC 
177570 ADSWR ,SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
177570 #DDISP,DISPLAY ;:AND A HARDWARE DISPLAY REGISTER 
177777 #-1,aSWR 3zTRY TO REFERENCE HARDWARE SWR 
66$ ; ;BRANCH IF NO TIMEQUT TRAP OCCURRED 
65$ ;BRANCH IF NO TIMEOUT 
005224 : MOV #65$, (SP) 7:SET UP FOR TRAP RETURN 


ASWREG, SWR tal TO SOFTWARE SWR 
#D1SPREG DISPLAY 
(SP)+,aWERRVEC ;;RESTORE ERROR VECTOR 


2233338 


wo0000000 
WDNAUSWN—O 


; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 


0.0 
ach ad and anh 


177776 #0,P ;SET a shtse STATUS TO 0 
000036 #200. @ATRAPVEC+2; TRAP PRIORITY = 4 
PVEC ,RO GET RP VECTOR ADDRESS 
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012720 
012710 


000403 
112737 


032777 
001403 
012737 


044666 
000340 


045666 
004736 


006110 


005322 
005422 


005466 
005566 
005662 


005762 
006044 


177777 
000042 
001140 


000001 
010000 
000001 


E 4 
MACY11 30A(1052)_ 27=JUL-78 ign 3 PAGE 44 


004736 


000176 


001134 


172764 
004750 


INITIALIZE THE COMMON T 
MRPVECT,(RO)+  ;THIS IS FOR UNTIMELY INTERRUPTS 
#340, (RO) ;DRIVE INTERRUPT SERVICE ROUTINE 
sPRIORITY = 
PC ,@#STKINT + INITIALIZE THE TTY KE YBOARD 
FIRST IME ROUND ? 


“DON 
SHEADER 1ST TIME THROUGH 
;NO HEADER 


3-TYPE ASCIZ STRING 


SIGET OVER THE ASCIZ 
ii TYPE ASCIZ STRING 


33GET OVER THE ASCIZ 
22 TYPE ASCIZ STRING 


::GET OVER THE ASCIZ 
#-1,a#F IRST :NEXT TIME DO NOT GIVE HEADER 
ans2 ; ARE WE RUNNING UNDER XXDP/ACT? 
64$ CH IF YES 
SWR ,ASWREG 3 3 SOF TWARE SWITCH REG SELECTED? 
65$ CH IF NO 
*:GET SOFT-SWR SETTINGS 
BR 65$ 
64$: #1, $AUTOB :;SET AUTO-MODE INDICATOR 
RH70CK: #SW12,aSWR ;LOOK TO SEE IF USING RH70 
B 3 SIF Swi2 = 0, SKIP NEXT 
se #1, a#RH70 SIF SWi2 = 1. CU IS AN RH70 
>*]S THERE A P-CLOCK (KW11-P) ON THE SYSTEM 
‘*]F SO MAKE 'WAT’’ TRAPS GO TO 'WAIT.P" 
:*IF SO MAKE RPO4 INTERRUPTS GO TO ‘TIME 1" 
‘*]F NOT MAKE ‘WAT’ TRAPS GO TO ‘WA 
‘*]F NOT MAKE RPO4 INTERRUPTS GO TO TIME 2! 
:*THE NEXT LINE IS TO BE ADDED LATER 
‘*AND THE JUMP AND NOP REMOVED 
t*FOR NOW NO CLOCK WILL BE USED 
MOV a#1$,a#ERRVEC  ;SET TIME-OUT VECTOR 


JMP avis ;DO NOT USE CLOCK 
NOP 
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012737 


012637 


001403 
013737 
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041670 004606 
177777 047274 


004726 
006214 


177770 
004716 
004730 


004730 004716 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


@APCLCSR REFERENCE P=CLOCK STATUS REGISTER 
SADDRESS = 172540 
#WAIT.P,@#$TRPAD+20 ; THERE IS A P=CLOCK 
#TIME1,QM#RPGVEC ; THERE IS A P CLOCK SO 
:VECTOR TO TIME1 


2$ 
AWAIT.T,@#STRPAD+20 ; THERE IS NO P-CLOCK 


ATIME2 ,@ARP4VEC ;RP04/5/6 INTERRUPTS GO TO ‘TIME 2° 
#-1,a4PRITEM ;CLEAR PREVIOUS ITEM NUMBER 


@ASELECT ;WAS IT A 200 STAR 

TST1 ; BRANCH IF STARTING. FROM 200 
,65$ 3sTYPE ASCIZ STRING 

64$ 33GET OVER THE ASCIZ 


#177770, (SP) ONLY KEEP LAST 3 BITS 
(SP) ,@#UNIT ;SAVE UNIT TO BE TESTED 
(SP)+,@MUNITSL ;SAVE UNIT TO BE TESTED 


TST1 BRANCH IF STARTING FROM 200 
@AUNITSL, " AMUNIT ;SET UNIT NUMBER 
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TSti: 
001212 #1,$TIMES 3;D0 1 ITERATION 
004604 #2-1,a4TSTNM ; THIS SAVES TEST NUMBER 
012 #STACK, SP SET UP STACK POINTER 
012737 047136 000030 #REGSAI, awEMTVEC: ERROR VECTOR SO THAT 
:NO REGISTERS ARE SAVED 
012737 006370 000004 #2$ ,QMERRVEC ;SET UP FOR BUS TIMEOUT 


000024 THERE ARE 24 REG TO TEST 
002270 [R1 NOW HAS ADDR OF ADDR OF FIRST REG. 
a(R1)+, -R2 READ HARDWARE REG. 


OUNT DOWN 
1$ BRANCH IF 24 NOT DONE 
3$ j;BRANCH IF 24 DONE 
000006 000004 : HERRVEC+2,a#ERRVEC ;RESTORE TRAP CATCHER 
(SP)+, (SP)+ ;CLEAN STACK 
177776 001200 -2(R1) ,$TMP1 + STORE FAILING REG ADDR 
7 ;REGISTER NON EXISTANT 
020000 172522 #SW13,aSWR S INHIBIT ERROR PRINTOUT ? 
4$ BRANCH IF YES 


006426 -65$ sz TYPE ASCIZ STRING 
BR 64$ ::GET OVER THE ASCIZ 


000204 MADDMOD,-(SP) ;GET READY TO TYPE STARTING ADDRESS 
7OF ‘CHANGE OF BASE ADDRESS'* ROUTINE 


:STOP TO FORCE THE CORRECT RESTART 
041004 : a ;GO TO END OF PROGRAM > 


000004 ; INITIALIZE VECTOR 
RH70 INIT RH INDICATOR ++ C.W 
ADDRESS RPBAE (RH11/RH70?) 
FOUND AN RH70-SET MASK 
006550 7eTYPE ASCIZ STRING 
BR 3;GET OVER THE ASCIZ 
D GET OUT 


. 
o 


RESTORE THE STACK 
006612 phi ASCIZ STRING 
64$ GET OVER THE ASCIZ 
012737 047126 000030 3 #SERROR ,AWEMTVEC RESTORE ERROR VECTOR 
3SO THAT REGISTERS ARE SAVED 
012737 000006 000004 HERRVEC+2,aM#ERRVEC ;RESTORE TRAP CATCHER 
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TSTé: SCOPE 
MOV 


000001 001212 #1,$TIMES 3;DO 1_ ITERATION 
00100 STACK, SP SET STACK POINTER 
012737 000002 004604 43-1 ,QATSTNM THIS SAVES TEST NUMBER 


013701 002316 @ARHAS ,R1 3;R1 HAS ADDRESS OF RHAS 
177777 THIS WRITES ALL ONES INTO RHAS 
aR ; TEST RHAS FOR ALL 0°S 
GOOD 
001126 . ; 
001124 5 ATA 
010137 004600 R1,@4REGADR FAILING REG. (RHAS) 


104005 5 ;RHAS DOES NOT CLEAR BY WRITING 
;ALL ONES INTO IT 
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T2 PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 


TST3: pe 


3 


aad ad ea end a and ed eh a 
WONAUISWM—O 


000004 
012737 
012737 


000005 
004737 
032777 


111137 
105037 
000137 
032777 


001402 
000137 


104401 
000420 


012703 


009001 
000003 


045666 
020000 
006772 
002316 


177777 


004742 
004743 


007462 
020000 
010020 


007136 
007204 
007272 
007360 


041004 


000010 
004676 
177777 


004676 


001212 
004604 


172156 


172016 2%: 


#1, $TIMES 
44-1 ,AATSTNM 


PC ,@#$TKINT 
#SW13,aSWR 
4$ 


,65$ 
64$ 


@ARHAS ,R1 
QARHCS2,R2 
aR2 

#8. ~RO 
@ARHER1,R4 
#-1,aR4 
aR2 


RO 
1$ 


@R1, QA TOTALAT 
@ATOTALAT+1 
aR) 


2$ 
XE2 


#SW13,ASWR 
3$ 
SELTST 


#8.,RO 
#UNITS R3 
, (R3)+ 


3$ 
#UNITS ,R3 


3;D0 1 ITERATION 

THIS SAVES TEST NUMBER 
[START WITH AN INIT 
SINITIALIZE TTY KEYBOARD 


; INHIBIT ERROR TYPEOUT? 
SBRANCH IF YES 

>; TYPE ASCIZ STRING 

3;GET OVER THE ASCIZ 

3R1 HAS ADDR. OF RHAS 

zR2 HAS ADDR. OF RHCS2 
CLEAR RHCS2 

; COUNT 

3R4 HAS ADDR. OF RHER1 
MOVE ERRORS INTO RHER1 

; INCREMENT UNIT NO. 

[COUNT DOWN DRIVE COUNTER 
3DO NEXT UNIT IF 8 NOT DONE 


SAVE TOTAL ATTENTION 

;USED IN DRIVE CLEAR TEST 

;CLEAR UPPER BYTE 

TEST ‘RHAS' FOR ANY DRIVES PRESENT 
[NONE RESPONDING - TYPE THE MESSAGE 
SOME THERE - GO FILL ‘UNITS** TABLE 


; INHIBIT ERROR TYPE OUT? 
3''NO DRIVES'* MESSAGE IF NO 


T 
;CHECK FOR SELECTED UNIT START AND LOAD 
7" UNITS'* TABLE WITH SELECTED ONE IF SO 


izTYPE ASCIZ STRING 


; COUNTER 
;POINTER 
anne Y BLOCK TO ALL ONES 


; COUN 
;BRANCH IF 8 NOT DONE 
POINTER 
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; INITIALIZE UNIT NO. TO 0 
NO. OF UNITS PRESENT 
; COUNTER 
; TEMPORARY STORAGE 
001176 : $TMPO ‘SET CARRY IF ONE IN 0 BIT 
103120 5$ CHECK NEXT UNIT IF ONE NOT IN BIT O 


010577 172540 R5,@RHCS2 ; INSERT UNIT NUMBER INTO RHCS2 UA BITS 
024020 172560 #24020, @RHDT 31S THIS A DUAL PORT RPO4 ? 
6$ TYPE THE UNIT NO. IF YES 
020020 172550 #20020, @RHDT 31S THIS A SINGLE PORT RPO4 ? 
6$ :TYPE UNIT NO. IF YES 


024021 172540 #24021, @RHDT ;DUAL PORT RPOS ? 
$ ; TYPE UNIT NO. IF SO 
020021 172530 CMP #20021, @RHDT SINGLE PORT RPOS ? 
6$ ; TYPE UNIT NO. IF SO 


022777 024022 172520 #24022, @RHDT :IS THIS A DUAL _ RP06 ? 
001463 6$ ; TYPE THE UNIT NO. IF SO 
020022 172510 #20022, @RHDT TIS THIS A SINGLE PORT RPO6 ? 
6$ ; TYPE UNIT NO. IF SO 


an 
~NN 
es eo | 


;*NO...1T°S NOT AN RPO4/RPOS/RPO6 DEVICE SO TYPE 
;*OUT THE DEVICE TYPE 


007624 ,65$ 3s TYPE ASCIZ STRING 
6 3;GET OVER THE ASCIZ 


4$ 
R5,-(SP) ;GET READY TO TYPE UNIT NUMBER 


ae ee ae ee ee ee ee ee ae ee ee ae ee Oe Oe) Or er er ee ee er ee ee ee ee. er er. 


007656 .67$ 2 i TYPE ASCIZ STRING 
BR 66$ GET OVER THE ASCIZ 
172426 MO @RHDT , = (SP) [GET READY TO TYPE RHDT 


007706 TYPE ASCIZ eres, 
68s [GET OVER THE ASCIZ 
“NO RPO4/RPOS/RPO6 FOUND SO TEST NEXT UNIT 


: MO R5,(R3)+ ;LOAD TABLE POSITION AND INCR IT 
001223 - $CRLF 
MO R5,-(SP) ;PUT DRIVE _ ON STACK 
; TYPE DRIVE N 
004720 :INCR THE TOTAL NO. OF UNITS 


;*RHCS2* UNIT ADDRESS 
005300 ;DRIVE COUNTER DOWN ONE 
001252 BN ; TEST AND DO NEXT UNIT IF 8 NOT DONE 


013737 004676 004716 @4UNITS,@#UNIT ;SET UNIT NO. TO FIRST ONE FOUND OR 0 
013737 004720 004722 @ANOUNI T , aANUNI T; - OF UNITS 
005337 004722 @4NUNIT ; = Q THEN ONLY ONE UNIT 

; > 0 THEN MORE THAN ONE UNIT 


005737 004726 SELTST: @ASELECT STARTING ADDRESS 200 
010024 001403 B TST4 ; SKIP NEXT IF STARTING FROM 200 
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ao 
™~ 
mn 


2206 010026 013737 004730 004716 MOV @AUNITSL ,@M#UNIT ; CHANGE UNIT NUMBER TO SELECTED ONE 


am mi im i Me ee MMe MIM Mie ie reser Ari AIA ia rewi em Ai AIA IA ILAIAIAIAPIAIAL 
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: SCOPE 
000001 001212 MOV #1, $TIMES + #D0 1 ITERATION 
010776 001106 #1$,$LPADR ;SET SCOPE LOOP ADDRESS 
001000 ASTACK, SP sRESET STACK 
000004 004604 #4, QATSTNM ;SAVE TEST NUMBER 
041456 PC,@#CLDISK SET R1-RHCS1, R2-RHCS2 
004740 @AATTENT ;CLEAR 


004716 31S ‘UNIT O°’ NEXT IN THE UNITS TABLE ? 
;1F NOT TEST THIS UNIT 
000041 M41, 71F SO, CHECK THE LOAD MEDIA LOCATION 
000011 #11,(RO) :WAS IT AN RPO4/5/6 ? 
010112 001102 9$ :NO - GO AHEAD WITH TESTING UNIT 40 


010114 005737 004726 @ASELECT ;WAS UNIT #0 SELECTED ? 
ZC1E. WAS IT A 210 START ?) 
010120 001006 12$ SIF SO, CHANGE PACKS 


:*INCREMENT THE UNITS TABLE TO NEXT DRIVE CIF ANY) 
>*& DECREMENT THE ‘NOUNITS'' PRESENT (TO BE TESTED) 


010122 012700 004676 MOV #MUNITS ,RO ;LOAD UNITS TABLE POINTER 
010126 005720 TST (RO) + ;SELECT THE NEXT UNIT IN THE TABLE 
; (DOUBLE INCREMENT THE POINTER, RO) 
010130 022710 177777 . 31S THERE ANOTHER TABLE ENTRY PRESENT ? 
001065 11$ :IF SO, USE THE NEXT DRIVE & DEC ‘NOUNITS"’ 
31F NOT, MUST USE DRIVE #0 & CHANGE PACK 


AAAI AIADA IAI AAAI AIA IAA 


104401 010144 TYPE ASCIZ STRING 
000434 BR 6 3:GET OVER THE ASCIZ 
104401 010242 TYPE ASCIZ STRING 
000421 BR 6 3;GET OVER THE ASCIZ 
000000 


000404 BR CONTINUE, USING SCRATCH PACK ON UNIT #0 


010310 011037 004716 : ° ;SET UP TO BE THE UNIT UNDER TEST 
010314 004720 @4NOUNI TS ;DECREMENT BECAUSE UNIT #0 WON'T BE TESTED 


010320 004716 : @#UNIT ,RO ;RO CONTAINS UNIT UNDER TEST 


010324 004744 @4RP06 CLEAR RPO6 DEVICE TYPE FLAG 
171742 RO, @RHCS2 SET UP UNIT ADDRESSING 
024022 171762 #24022, aRHDT 31S IT A DUAL PORT RPO6 ? 
2$ 7YES...SET THE FLAG 
020022 171752 #20022, @RHDT 31S IT A SINGLE PORT RPO6 ? 
2$ :YES,..SET FLAG 
3$ ;DON'T a! FLAG = CHECK FOR RPO4 
177777 004744 : 4-1 ,a@ARPO6 SET THE FLAG 
8$ DON'T CHECK FOR RPO4, IT WAS RPO6 


004746 : @4RPOS CLEAR MEMOREX RPO4 DEVICE FLAG 
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010372 022777 024021 171724 #24021, @RHDT #IS IT A DUAL PORT MEMOREX RPO4 ? 
010400 7$ ;YES..SET THE FLAG FOR ADDR PLUG TESTS 
020021 171714 #20021, @RHDT TIS IT A SINGLE PORT MEMOREX RPO4 ? 
7$ TYES..SET THE FLAG FOR ADDR PLUG TESTS 
000403 B 8$ :DON'T SET FLAG - NOT MEMOREX DRIVE 
012737 177777 004746 ; #-1,a4#RPOS SET THE FLAG 
: SASSUME THE NEXT UNIT IS AN RPO4 


116037 004666 004740 ATABLE(RO), ada * iz) oie tThine” ATTENTION BIT 
010436 69% 3sTYPE ASCIZ STRING 
68$ : ‘GET OVER THE TASCIZ 
004716 MO @AUNIT , = (SP) [UNIT NO. TO STACK 
:TYPE DRIVE NO. 
010502 .71$ 23 TYPE ASCIZ STRING 
BR 70$ 3GET OVER THE ASCIZ 
171600 @RHSN, = (SP) >:SAVE @RHSN FOR TYPEOU 
3:GO TYPE--OCTAL ASCII CALL DIGITS) 
010536 a Me 53 TRING 


2$ 
171542 MO @RHDT ,=( SP) EOUT 
010562 3;GO TYPE--OCTAL ASCII(ALL DIGITS) 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
é 
2 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
$ 
{ 
{ 
{ 
{ 
4 
{ 
{ 
{ 
¢ 
{ 
{ 
{ 
{ 
{ 
( 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
< 
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TYPE OUT THE DRIVE TYPE IN ASCII 


022777 024020 171532 #24020, @RHDT ;DUAL PORT RPO4 ? 
4 TYPE ASCII MSG our 

020020 171522 #20020, @RHDT [SINGLE PORT RPO4 ? 

4$ TYPE THE MESSAGE 


022777 024021 171512 #24021, @RHDT ;DUAL PORT RPOS ? 
001453 6$ TYPE THE MESSAGE 
022777 020021 171502 #20021,@RHDT SINGLE PORT RPOS 7 
001447 6$ TYPE THE MESSAGE 


022777 024022 171472 #24022, @RHDT ;DUAL PORT RPO6 ? 

001424 5$ TYPE THE MESSAGE 

022777 020022 171462 #20022 ,@RHDT SINGLE PORT RPO6 ? 

001420 5$ TYPE THE MESSAGE 

000454 1$ DRIVE IS NOT AN RPO4/RPOS/RPO6 
;DON'T TYPE ASCII MESSAGE OUT 


;~SHOULD NEVER HAPPEN AT THIS POINT 
;UNLESS DRIVE GOT SICK WHILE TESTING 
;WAS IN PROGRESS 


POMPOM POPUP POPUP PO ROP PO PURO MNO PPP 


104401 010654 :: TYPE ASCIZ STRING 
000413 ? S:GET OVER THE ASCIZ 
000435 “SKIP NEXT MESSAGE 


104401 010712 zz TYPE ASCIZ STRING 
000413 BR 7 S:GET OVER THE ASCIZ 
000416 ‘SKIP NEXT MESSAGE 


104401 010750 : zi TYPE ASCIZ STRING 
010746 000413 BR 7 *:GET OVER THE ASCIZ 


010776 : Aor y SERIAL NO. AND DRIVE TYPE 
THESE TWO ARE TO HELP SCOPE LOOPS 
002410 . [SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS 
011014 017737 002406 @RHDT , aADT SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS 
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071022 000004 TST5S: 
000005 004604 MO #6~-1 ,Q4TSTNM THIS SAVES TEST NUMBER 
041456 PC ,@#CLDISK 
010000 #MOL , aR 
TST6 
011052 
011120 
011176 
010000 


011274 


NG 
FIGET OVER THE ASCIZ 
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000004 TST6: 


012737 000006 47-1 ,@ATSTNM : THIS Pile TEST NUMBER 
#STACK , SP RESET STA 
PC ,@#CLDISK :SET RI-RHCS1, R2-RHCS2 


@FRPVEC RO :GET RP VECTOR ADDRESS 
#RPTRP1.(RO)+ THIS IS FOR TIMELY INTERRUPTS 
#340, (RO) ;RPO4 INTERRUPT SERVICE ROUTINE 


PRIORITY = 7 
737 177776 #200,PS SET PROCESSOR PRIORITY @ 4 (DISK @ 5) 
711 000300 ARDY! IE ,a@R1 :RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 


3737 001200 aT IMCNT , a#$TMP1; COUNTER 
5337 : avSTMP1 [WAIT FOR INTERRUPT 
001375 BNE 1$ ‘BRANCH IF NOT ZERO 
SBEFORE THIS IS ZERO INTERRUPT SHOULD OCCUR 
104065 65 S INTERRUPT DID NOT OCCUR 
012712 MOV #40 are [CLEAR CONTROLLER VIA CS2 CLR BIT 
000407 TST? BRANCH TO NEXT TEST 


022626 RPTRP1: (SP) +, (SP)+ sRESTORE STACK 
C #DVA!RDY,aR1 :1€ SHOULD BE LOW AS RUPT OCCURRED 
E TST7 : CONTINUE IF GOOD 
011470 65 : INTERRUPT OCCURED BUT 
IE FAILED TO RESET 
011472 012712 #40 ,aR2 CLEAR CONTROLLER VIA CS2 CLR BIT 
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011476 000004 


012737 #10-1,@4TSTNM = ;THIS SAVES TEST NUMBER 
001000 STACK , SP RESET STACK 
011512 004737 PC ,@4CLDISK 7SET R1-RHCS1, R2-RHCS2 


011516 0137 002266 @ARPVEC ,RO GET RP VECTOR ADDRESS 
011522 WRPTRP2,(RO)+ THIS IS FOR UNTIMELY INTERRUPTS 
011526 012710 00034 #340, (RO) = RPO4 ne he SERVICE ROUTINE 


PRIORITY = 7 
011532 012737 177776 #240,PS iSET PROCESSOR PRIORITY @ 5 
011540 012711 000300 ARDY! IE ,@R1 :RDY, IE IN RHSC1 WOULD CAUSE INTERRUPT 


011544 013737 001200 MOV @4TIMCNT ,a#$TMP1 ; COUNTER 
011552 001200 : a4$STMP1 ;WAIT FOR INTERRUPT 
011556 BNE 1$ BRANCH IF NOT ZERO 
;BEFORE THIS iS ZERO INTERRUPT WHOULD 


OCCUR 
011560 012712 #40,aR2 CLEAR THE CONTROLLER VIA CS2 CLR BIT 
011564 000404 TSTIO. NO INTERRUPT SO CONTINUE 


011566 022626 RPTRP2: (SP)+,(SP)+ RESTORE STACK 

011570 104065 ER 65 ; INTERRUPT OCCURRED WITH PROCESSOR 
[PROCESSOR STATUS SAME AS DISK 

011572 012712 #40 ,aR2 ;CLEAR THE CONTROLLER VIA se CLR BIT 





an 
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TST10: 
012706 V #STACK,SP ;RESET STACK 

012737 004604 #10, a4TSTNM ;SAVE TEST NUMBER 

004737 PC ,@A4CLDISK 7SET R1-RHCS1, R2-RHCS2 
012737 177776 #0,PS ;SET PROCESSER STATUS TO 0 


31S THIS A 220 START ? 
:SKIP THIS TEST IF SO 
:MONITOR (ACT 11) RETURN ADDRESS ? 
7 SKIP yest TEST 
SFIRST PASS ? 
+ SKIP THIS TEST IF NOT 
CONTINUE WITH THIS TEST 
SUMP TO NEXT TEST 
zz TYPE ASCIZ STRING 
64$ 33GET OVER THE ASCIZ 
@AUNIT,-(SP) GET UNIT UNDER TEST 


.¢7$ 32 TYPE ASCIZ STRING 
66$ 3;GET OVER THE ASCIZ 


#MOL .@R3 3;MOL_ IN RHDS1 SHOULD BE = 0 

3$ BRANCH IF MOL=0 

are @#$BDADR FAILING REGISTER ADDRESS~RHDS1 
10 ;ON SPINPLE POWERED DOWN 


013746 : @AUNIT ,- (SP) ; UNI 
052716 MIR, (SP) ; INCLUDE IR 
011770 022612 (SP)+,aR2 ONLY UNIT NO. AND IR SHOULD BE 
*HIGH IN RHCS2 
011772 4$ BRANCH IF RHCS2 GOOD 
R2,@4$BDADR sFAILING REGISTER ADDRESS-RHCS2 
11 [WITH SPINDLE POWERED DOWN 
ONLY UNIT NO. AND IR SHOULD BE 
iH 


041456 PC ,a#CLDISK 7SET R1-RHCS1, R2-RHCS2 
012014 69% TYPE ASCIZ STRING 

BR 68$ 3;GET OVER THE ASCIZ 
004716 MOV @AUNIT ,~ (SP) ;GET UNIT UNDER TEST 


012046 71$ zi TYPE ASCIZ STRING 
BR 70$ *:GET OVER THE ASCIZ 


010000 alii = MOL io hg — BE 
000400 ADPR ,aR3 DPR TN RHDS1 SHOULD BE 

5$ BRANCH IF DPR = 0 
000200 #DRY ,aR3 DRY IN RHDS I SHOULD BE 

5$ ; IF DRY =0 
000100 AVV ARS 

;BRANCH IF VV = 0 (GOOD) 

001122 : MOV R3,@4$BDADR FAILING REGISTER ADDRESS - RHDS1 


104012 12 WITH SPINDLE POWERED UP 
;RHDS1 SHOULD HAVE VV = 0, MOL = 





an 
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012146 011100 6$: MOV aR1,RO GET RHCS1 CONTENTS 
012150 042700 BIC #SC1TRE!MCPE!76, pics if! -MCPE AND 


012154 022700 c #DVA!RDY ,RO 


001403 7$ “BRAN 
R1,@4$BDADR :FAILING REGISTER RHCS1 
13 AFTER A POWER UP WITHOUT ANY 
: INIT RHCS1 Se oy HAVE 
DVA = 1, RDY = 1, IE = 0 
“DISREGARD ALL OTHER BITS 


170140 : @RHCC TEST RHCC, ane SHOULD = 0 
10$ BRANCH IF RHCC = 0 
002334 004600 @ARHCC ,AMREGADR ; FAILING REGISTER RHCC 
001124 @4SGDDAT SRHCC — BE = 0 
170120 001126 MO @RHCC,@#SBDDAT BAD DATA 
012216 14 AFTER POWER UP RHCC 
HOULD BE 0 


012220 


041456 F PC, a#CLDISK :SET R1-RHCS1, R2-RHCS2 
PC. a#CHECK SCHECK THAT DVA,RDY,MOL,DPR,DRY = 1 
CPHALT ; CANNOT CONTINUE TESTS IF THEY AREN'T 


STOP 
170034 @4PKACK ,@RHCS1 eer READY FOR PKACK 


3 *NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 


012244 JSR RO, @#SAVER SAVE REGISTERS 

012250 RHWC ;RHWC IS THE FIRST REGISTER SAVED 
012252 SAVERE STARTING ADDRESS OF WHERE 

012254 000022 18. NUMBER OF REGISTERS 


012256 013777 004606 170002 @4RP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002460 @APKACK,-(SP) ;GET READY TO MOVE COMMAND 
052716 000001 #G0, (SP) ;GET READY TO SET GO 
012677 170000 (SP) +,@RHCS1 GO WITH 


WAIT FOR VV BIT TO SET 

;WAIT FOR RHDS1 REGISTER 

WAIT FOR VV BIT IN RHDS1 REGISTER 
012306 . zALLOW 10 MICRO SECONDS 
012310 . :VV MUST SET BETWEEN 


012312 004037 042336 JSR RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 
:1 BIT/BITS TO BE CHANGED 
NEW VALUE OF VV IS 1 

012324 CHANGE VV BIT 


;*NOW COMPARE REGISTERS SO THAT NO REGISTERS 
:*CHANGED EXCEPT VV IN RHDS1 AND IE IN RHCS1 





an 
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CZRJIC.P11 27-JUL-78 1 


012326 004037 042444 
004612 


012350 
104015 
000207 


012350 012737 


177777 + 047274 


MACY11 Ve 
710 


12$: 


eg. te -78 


ACK ACKNOWLEDGE 


JSR 


MOV 


RO, @4COMREG 


4-1 ,a#PRITEM 


G 5 
13:06 PAGE 59 


s COMPARE SAVED REGISTERS WITH 
[GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC" 
:18. REGISTERS TO BE COMPARED 


;RETURN TO 11$ ON ERROR 
;RETURN TO 12$ ON NO ERROR 


GIVING A PACK ACKNOWLEDGE 
; CAUSED AN ERROR 
PACK ACKNOWLEDGE SHOULD 


SET VV IN RHDS1 
; INTERRUPT SHOULD MAKE 


:1E = 0 
:NO OTHER REGISTERS SHOULD 


:C 

:GOOD DATA GIVES 

CONTENTS OF REGISTER BEFORE 
[PACK ACKNOWLEDGE 

SRECEIVED DATA GIVES 
CONTENTS OF REGISTER 

ZAFTER PACK ACKNOWLEDGE 


;CLEAR PREVIOUS ITEM NUMBER 


SEQ 0058 





ci 
Ci 


H 5 
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012356 : SCOPE 


:*IN CASE THERE IS ANY DRIVE ERRORS DURING POWER UP 
*OR POWER DOWN OR ANY PARITY ERRORS A RESET IS GIVEN 


PC ,@#$TKINT sINITILIZE TK 


STACK, SP RESET STACK 
004604 #11,a4TSTNM SAVE TEST NUMBER 
PC ,a@#CLDISK SET R1-RHCS1, R2-RHCS2 
PC ,@A#CHECK ;CHECK THAT DVA,RDY,MOL ,DPR.DRY = 1 
~CPHALT CANNOT CONTINUE TESTS IF THEY AREN'T 


000000 STOP 
012416 002460 167654 @APKACK,@RHCS1 ;GET READY FOR PKACK 
:*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 


012424 041624 RO.@4#SAVER Some REGISTERS 
C C IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


013777 167622 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


012444 013746 @APKACK,-(SP)  ;GET READY TO MOVE COMMAND 

012450 #G0, (SP) ;GET READY TO SET GO 

012454 167620 (SP)+,@RHCS1 :GO WITH 

012460 aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
012462 @R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


WAIT FOR VV BIT TO SET 

WAIT FOR RHDS1 REGISTER 

;WAIT FOR VV BIT IN RHDS1 REGISTER 
;ALLOW 10 MICRO SECONDS 

af MUST SET BETWEEN 


002460 @4PKACK ,~ (SP) AVE COMMAND 

004200 MDVAIRDY,(SP) ;INCLUDE DVA!RDY 

001124 (SP),a#$GDDAT SAVE FOR PRINTOUT 
[DURING ABOVE OPERATION ONLY DVA!RDY 
nye iY GOOD 


001126 
004600 SPAILING. REGISTER RHCS1 
21 URING ABOVE OPERATION ONLY 
010700 : #NOL ! DPR! DRY! VV,—(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
001124 (SP) ,a#$GDDAT ~;SAVE FOR PRINTOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL! DPR!DRY! VV 
66$ ;BRANCH IF GOOD 
001126 RS, a@#$BDDAT ;BAD DATA 
004600 R3,@A#REGADR FAILING REGISTER RHDS1 
[DURING ABOVE OPERATION ONLY 
004037 042336 JS RO, @ACHREG CHANGE BITS IN SAVED REGISTER 
012562 002322 :CHANGE RHDS1 REGISTER 





ee 
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1 31 BIT/BITS TO BE CHANGED 
1 jNEW VALUE OF VV IS 1 
012570 vv ; CHANGE VV BIT 


;*NOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE 
:*WITH AFTER PACK ACKNOWLEDGE 


012572 i rene RO, @4COMREG + COMPARE SAVED REGISTERS WITH 


012614 ‘RETURN TO 2$ ON NO ERROR 


012610 104015 : GIVING A PACK ACKNOWLEDGE 
032612 000207 D ERROR 


: INTERRUPT SHOULD MAKE 
:NO OTHER REGISTERS SHOULD 
; CHANGE 


;GOOD DATA GIVES CONTENTS 

;OF REGISTER BEFORE COMMAND 

RECEIVED DATA GIVES CONTENTS 
012614 OF REGISTER AFTER COMMAND 





CZRJICO, RPO4/5S/6 FCTNL 
CZRJIC.P11 27-JUL-78 


012614 005737 
00 


012666 
012672 
012674 


012732 


CTLRI 
13:05 


004744 
004746 
014754 


012700 


041126 


012734 


041126 


MACY11 30A(1052) 
711 


004604 
167432 


004604 
167372 


J 5 
27-JUL=78 13:06 PAGE 62 
SET VV BIT 46 IN RHDS1 


. 
@4RPOS 
4$ 


TST16— H = DON'T DO EITHER ‘MAKECYL"’ 
THE ADDRESS PLUG TESTS 


TST13 3 


MSTACK, SP sRESET STACK 
#13-1,Q4TSTNM =; THIS SAVES TEST NUMBER 

PC ,@#CLDISK INIT DRIVE 

#DMD , @RHMR SET DIAGNOSTIC MODE 

RO, Q4MAKECYL ; SUBROUTINE TO GIVE A SEEK 


TST14 SKIP NEXT ‘MAKECYL"’ 


ASTACK, SP RESET STACK 
#14-1,04TSTNM =; THIS SAVES TEST NUMBER 

PC ,aACLDISK INIT DRIVE 

#DMD , ARHMR [SET DIAGNOSTIC MODE 

RO, @4MAKECYL ; SUBROUTINE TO GIVE A SEEK 
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012734 
012736 


012744 


27-JUL-78 1 


000004 
012737 


000901 
004744 
004746 


013746 


001000 
000014 
041456 
041536 
066720 


004724 
000042 
001100 


MACY11 30A(1052) 
113 


TST14 
001212 


004604 


27-JUL-78 


#1,$TIMES 
@4RP06 
4$ 


@ARPOS 
4$ 


TST15 $ 


ASTACK, SP 
#14 ,Q4TSTNM 
PC ,@#CLDISK 
PC ,@4CHECKT 
~CPHALT 


@4NOPUSH 
1$ 
a442 


K 5 
13:06 PAG 
MAKE CURRENT CYLINDER = 


E_63 CZ 
777 CZ 


3;D0 1 ITERATION 


44 pe FOR “$. DRIVE 
= 1, DO THIS TEST 
TEST FOR MEMOREX RPO4 
SIF = 1, DO THIS TEST 
: IF NEI THER FLAG IS UP, ASSUME THE 
[DRIVE IS AN ISS RPO4 AND SKIP aes 


JUMP TO NEXT TEST 


RESET STACK 
SAVE TEST NUMBER 
SET R1-RHCS1, 
CHECK DVA,RDY,MOL,,DPR,DRY,VV 
a CONTINUE TESTING IF AN 


R2-RHCS2 ‘ 

ANY OF 

STOP 

31S THIS A 220 START ? 

;SKIP THIS TEST IF SO 

[MONITOR (ACT ai RETURN ADDRESS ? 


: SKIP yt TEST 
FIRST P, 


1$ 
@ASPASS 
1$ 


ASS ? 
:SKIP THIS TEST IF NOT 
2$ CONTINUE WITH THIS TEST 
TSTS— JUMP TO NEXT TEST 


:*SET DIAGNOSTIC MODE TO ENABLE A COMMAND ACTIVE WHILE 
;*THE PLUG IS PULLED 


BIS #DMD , ARHMR SET UP DIAGNOSTIC MODE 
z*TAKE AN INITIAL REGISTER SNAPSHOT 


bet RO, @4#SAVER Soe REGISTERS 
HwWC HWC IS THE FIRST REGISTER SAVED 
SAVERE WHERE 


013746 


000001 167246 


013052 041624 
+ OTARTING ADDRESS OF 
[NUMBER OF REGISTERS 


:*ISSUE A COMMAND AND THE ‘GO’ BIT (NOT POSITIONING COMMAND) 
3*TO VERIFY COMMAND ABORT IF PLUG IS PULLED 


:*ISSUE SOME CLOCKS TO GET THE COMMAND STARTED 
7*(USE ''SEARCH'' WITH "DTETST’* FLAG UP TO STOP CLOCKING ?) 


013072 
004716 


,65$ 
64$ 
QAUNIT ,~ (SP) 


2a TYPE ASCIZ STRING 

;GET OVER THE ASCIZ 

[GET THE UNIT NO. UNDER TEST 
;TYPE IT OUT 


104401 TYPE 
20 BR 





CZRJICO, RPO4/S/6 FCTNL CTLR1 MACY11 30A(1052) 
27-JUL-78 13:05 T14 


C2RJIC.P11 
013140 


013202 
013206 
013212 
013220 


013222 
013224 


104401 
000415 


017700 
004737 
032737 
001001 


104101 


013146 


167076 
043370 
010000 002360 


.. 
27-JUL=78 13:06 PAGE 64 
ADDRESS PLUG CHANGE ERROR 


TYPE -67$ zzTYPE ASCIZ STRING 
66$ 3:GET OVER THE ASCIZ 


BR 
HALT ;WAIT FOR OPERATOR PLUG CHANGE 


;*CHECK THAT THE UNIT NO. UNDER TEST HAS GONE OFFLINE 


MOV @RHDST ,RO ATTEMPT TO ADDRESS THE DRIVE 
JSR PC ,aAPUTREG ; TAKE REGISTER SNAPSHOTS 
BIT #NED ,@ACS2 TEST FOR NON EXISTENT DRIVE 
BNE 7$ SCONTINUE IF ‘NED’ BIT SET (UNIT 
31S OFFLINE AS IT SHOULD BE) 
ERROR 101 [UNIT DID NOT GO OFFLINE WHEN ADDRESS 
;PLUG WAS REMOVED 
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;*NOW REPLACE 7HE ADDRESS PLUG 


013224 013232 ,O9$ 22 TYPE ASCIZ STRING 
BR 68$ ;GET OVER THE ASCIZ 
004716 @AUNIT ,~ (SP) [GE] THE UNIT UNDER TEST 
TYPE IT OUT 
013306 .71$ 7; TYPE ASCIZ STRING 
BR 70$ 4oyt OVER THE ASCIZ 
WAIT FOR OPERATOR PLUG REPLACEMENT 


THAT THE ORIGINAL UNIT HAS COME BACK ON LINE 


043370 PC ,@4PUTREG 7 TAKE NEW REGISTER SNAPSHOTS 
000400 002404 ADPR ,aADS1 TEST THAT ‘DPR* = 1 

9$ [ERROR ~ DRIVE SHOULD BE PRESENT 
004000 002362 aaccaaly ‘Enon THAT he | Any eal 


HOUL 
000200 002404 ADRY ,aADS1 TEST THAT DRIVE READY IS = 1 
9$ [ERROR = "DRY' SHOULD = 1 
8$ zA-OK: "DPR' = 1, 'DVA' = 1, & ‘DRY* =1 
102 [UNIT NOT AVAILABLE AFTER 
SADDRESS PLUG WAS REPLACED 
013746 ST1> = g JUMP TO NEXT TEST 


THE INITIAL REGISTER SNAPSHOT TO EXPECTED VALUES 
THE PLUG CHANGE 


RO, @#CHREG ; CHANGE BITS IN SAVED REGISTER 
CHANGE RHCS1 REGISTER 
:4 BIT/BITS TO BE CHANGED 
SNEW VALUE OF RDY IS 1 
; CHANGE RDY BIT 
NEW VALUE OF SC IS 1 
; CHAN BIT 


GE S 
NEW VALUE OF TRE IS 1 
CHANGE TRE BIT 
:NEW VALUE OF MCPE IS 1 
; CHANGE MCPE BIT 
042336 JS RO, @4#CHREG [CHANGE BITS IN SAVED REGISTER 
:CHANGE RHDS1 REGISTER 
;3 BIT/BITS TO BE CHANGED 
[NEW Le " ATA IS 1 
CHANGE ATA BIT 
NEW VALUE a: ERR IS 1 
CHANGE ERR BIT 
[NEW beg 3 OF WV IS 0 
; CHANGE VV BIT 
042336 JSR RO, @#CHREG > CHANGE BITS IN SAVED REGISTER 
[CHANGE RHCS2 REGISTER 
:1 BIT/BITS TO BE CHANGED 
NEW VALUE OF NED IS 1 
; CHANGE NED BIT 
042336 JSR RO, @#CHREG CHANGE BITS _IN SAVED REGISTER 
CHANGE RHER3 REGISTER 
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073506 1 31 BIT/BITS TO BE CHANGED 
013510 1 NEW VALUE OF ACE IS 1 
013512 ACE CHANGE ACE BIT 


013514 053757 004740 004636 BIS @AATTENT ,@ASAVERE+24 ;SET UNIT UNDER TEST ATTENTION 
013522 005037 004654 CLR @ASAVERE +42 SET RHCC REGISTER IMAGE TO ALL 0°S 


:*TAKE A NEW REGISTER SNAPSHOT AND 
S*COMPARE THE REGISTER CONTENTS WITH EXPECTED VALUES 


013526 004037 042444 JSR RO, @4COMREG ; COMPARE SAVED REGISTERS WITH 
004612 R ;GOOD DATA SAVED IN ‘SAVERE’ 
002354 WC TEST DATA STARTING FROM ‘RHWC* 
000022 ° 318. REGISTERS TO BE COMPARED 
013544 ;RETURN TO 5$ ON ERROR 

013542 013550 ;RETURN TO 6$ ON NO ERROR 


013544 104100 : 100 sADDRESS PLUG CHANGE CAUSED SOME 
eray thag ERROR 

013546 000207 O BACK AND CHECK THE NEXT REGISTER 
‘UNTIL ALL 18. HAVE BEEN DONE 
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;*NOW CLEAR OUT THE CONTROLLER AND DRIVE 


013550 : 
013550 JSR PC ,@4CLDISK ;SET R1-RHCS1, R2-RHCS2 


;*CHANGE THE REGISTER SNAPSHOT TO EXPECTED VALUES AFTER THE CLEAR 


JSR RO, @4#CHREG : CHANGE BITS IN SAVED REGISTER 

RHCS1 ; CHANGE RHCS1 REGISTER 

3 [3 BIT/BITS TO o CHANGED 
NEW VALUE OF SC IS 0 


RO, @#CHREG : CHANGE BITS IN SAVED REGISTER 
;CHANGE RHDS1 REGISTER 
32 BIT/BITS TO BE CHANGED 
NEW VALUE he ATA IS 0 
CHANGE ATA BIT 
NEW VALUE OF a: IS 0 
; CHANGE ERR BIT 


E 
RO, @#CHREG : CHANGE BITS 7 ate REGISTER 
CHANGE RHCS2 REGISTER 
31 BIT/BITS fos aE CHANGED 
:NEW DIS 0 


RO, @4#CHREG 


3 ACE BIT 
RO, @#CHREG ZCHANGE BITS IN SAVED REGISTER 
[CHANGE RHMR REGISTER 
71 BIT/BITS TO BE CHANGED 
NEW VALUE OF DMD IS 
; CHANGE DMD BIT 
@M4ATTENT ,@#SAVERE+24 ;UNIT UNDER TEST ATTENTION BIT 


3*TAKE ANOTHER REGISTER SNAPSHOT AND COMPARE RESULTS 
;*WITH THE EXPECTED VALUES 


JSR RO, @4COMREG : COMPARE SAVED REGISTERS WITH 
004612 VERE A SAV * SAVERE * 
002354 
000022 
013710 ROR 
013714 ;RETURN TO 11$ ON NO ERROR 


013710 104100 : ERROR 100 ADDRESS PLUG CHANGE CAUSED SOME 
013712 000207 RTS PC ; INCORRECT REGISTER RESULT 
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013714 11$: 


;*(USE NED METHOD TO VERIFY 
;*THAT ATTENTION BIT COMES UP IN THE PROPER LOCATION ??) 


3*SET ‘VV" IN RHDS1 AFTER RESET FROM THE RECALIBRATE 
;*CAUSED BY PULLING THE PLUG 


013714 013746 002460 @4PKACK,~-(SP)  ;GET READY TO MOVE COMMAND 
052716 000001 #GO, (SP) :GET READY TO SET GO 
012677 166350 (SP)+,@RHCS1 GO WITH 
011100 aR1 ,RO SAVE RHCS1 DURING ABOVE OPERATION 


@R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
[WAIT FOR VV BIT TO SET 
[WAIT FOR RHDS1 REGISTER 
[WAIT FOR VV BIT IN RHDS1 REGISTER 
00000 . ALLOW 10 MICRO SECONDS 
013744 ° :VV MUST SET BETWEEN 








ony 


CZRJICO, RPOG/S/6 FCTNL cue) 
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CZRJIC.P11 


013746 
013750 


013756 
013762 


013764 
013770 


013772 
013776 


013776 


014012 
014012 


014070 


014072 
014076 
014154 
014160 


014220 


000004 
012737 


013737 


000001 001212 
004744 
004746 


014754 


000040 165134 
014754 


004724 
000042 
001100 


014754 
001000 
00001 


014100 
014162 


004716 004752 


TST1 


MACY11 30A(1052) 
T14 


5: 


6 
27-JUL-78 13: 06 spate 69 


ADDRES 


3; *CHECK 


SS PLUG CHANGE ERR 


#1, STIMES D0 1 ITERATION 


TEST FOR RPO6 DR 

:IF = 1, OK TO DO. THIS TEST 
: TEST FOR MEMOREX RPO4 

:1F = 1, OK TO DO a TEST 
NOT AN RPO6 OR MEMOREX RPOS SO 
zASSUME AN ISS RPO4 AND SKIP TEST 


TST16 JUMP TO NEXT TEST -------------------- ) 


TO SEE IF THIS TEST HAS BEEN SELECTED WITH SwW5 


A#SWS ,ASWR TEST THE SWITCH 
5$ zIF 0, TEST Ra NOT BEEN SELECTED 


JUMP TO NEXT TEST 
TEST SELECTED, CONTINUE IT 


31S THIS A 220 7 ? 

;SKIP THIS TEST IF $ 

:MONITOR (ACT 11) RETURN ADDRESS ? 
SKIP THIS TEST 

SFIRST PASS ? 

+ SKIP THIS TEST IF NOT 


#STACK, SP 

#15 QATSTNM 

PC ,@4CLDISK 

PC ,@#CHECKT 

~CPHALT a CONTINUE TESTING IF ANY OF 


2a TYPE ASCIZ STRING 


3;GET OVER THE ASCIZ 


@4UNIT ,@MINUNIT ;MAKE THE INITIAL UNIT NO. = ‘UNIT’ 
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CZRJIC.P11 


014226 


014416 


014420 


014522 


CTLR1 
13:05 


014234 
004716 
014310 
014360 


165636 
043370 
010000 


014472 
004716 
014524 


MACY11 ee 
715 


002360 


E 
Sy ry 13:06 PAGE 70 
HECK ALL ADDRESS PLUG ADDRESSES 


;*CHANGE ADDRESS PLUG ON THE UNIT UNDER TEST 


69% si TYPE ASCIZ STRING 
68$ 3 ;GET OVER THE ASCIZ 
@4FUNIT,-(SP) ;GET THE rr UNDER TEST 


; I 
:IGET OVER THE ASCIZ 


; *HOUSEKEEP ING 


CLR @4PRITEM ;CLEAR THE PREVIOUS ERROR NUMBER 
INC @4UNIT ZADD ONE TO THE UNIT NO. 

BIC #*C7, Q#UNIT ; TRUNCATE TO LOW ORDER 3 BITS 
JSR PC ,@#CLDISK [SET R1-RHCS1, R2-RHCS2 


;*ATTEMPT TO ADDRESS THE NEW UNIT NUMBER 


@RHDST ,RO ATTEMPT TO ADDRESS THE NEW DRIVE NO. 

PC, a#PUTREG TAKE REG. SNAPSHOT IN CASE OF ERROR 

#NED ,aACS2 TEST FOR NON EXISTENT DRIVE 

7$ ;CONTINUE IF ‘NED’ IS NOT SET — DRIVE 
[SHOULD BE EXISTENT ON THE BUSS 

102 [UNIT NOT 7 eat AFTER ADDRESS 


.75$ ;T 

74$ ;;GET OVER THE ASCIZ 
@A4UNIT ,~ (SP) :GET, THE BA at} UNIT NUMBER 
.77$ TYPE ASCIZ STRING 

76$ 33GET OVER THE ASCIZ 
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014540 


014570 


014572 
014576 
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;*CHECK IF ALL UNIT NUMBERS HAVE BEEN TRIED 


023737 004716 004752 7$: CMP @AUNIT ,AMINUNIT ; ORI wh "oat wa went TO THE 


001233 


013746 


002460 
000001 
165524 


014600 
014702 


IGINAL UNIT NO 
BNE 6$ -DO NEXT ADDRESS PLUG 
ives. CONTINUE WITH TESTS 


7*SET 'VV'IN RHDS1 AFTER RESET FROM THE RECALIBRATE 
;*CAUSED BY PULLING THE ADDRESS PLUGS OUT 


@APKACK,-(SP)  ;GET READY TO MOVE COMMAND 
) :GET wie” TO SET GO 


:GO WITH 
SAVE RHCS1 DURING ABOVE OPERATION 
; SAVE RHDS1 DURING “iO Sey OPERATION 


TALLOW 10 MICRO SECONDS 
:VV MUST SET BETWEEN 


wo ASCIZ STRING 

T OVER THE ASCIZ 
3: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 





C, 
C 
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« SBTTL 
a **DRIVE COMMAND TESTS** 


014754 
MSTACK , SP ;RESET STACK 
#16, Q4TSTNM SAVE TEST NUMBER 
PC ,@#CLDISK SET R1-RHCS1, R2-RHCS2 
PC ,@#CHECKT CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1 
~CPHALT —_— T CONTINUE TESTING IF ANY OF 


002422 165264 MOV @ANOPERA,@RHCS1 ;GET READY FOR NOPERA 
7*NOW SAVE REGISTERS FOR COMPARISON AFTER NO OPERATION 


015014 041624 JSR RO. @4#SAVER SAVE REGISTERS 

015020 RHWC SRHWC IS THE FIRST REGISTER SAVED 
015022 SAVERE STARTING ADDRESS OF WHERE 

015024 000022 18. [NUMBER OF REGISTERS 


015026 013777 165232 MOV QARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 @ANOPERA,-(SP) ;GET READY TO MOVE COMMAND 
052716 #GO, (SP) :GET READY TO SET GO 
012677 165230 (SP)+,@RHCS1 GO WITH 


;WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 10 MICRO SECONDS 

sRDY MUST SET BETWEEN 


NOW COMPARE REGISTERS BEFORE NO-OP COMMAND 
‘all WITH AFTER NO-OP COMMAND 
042444 RO, @4COMREG COMPARE SAVED REGISTERS WITH 

[GOOD DATA SAVED IN 'SAVERE' 
TEST DATA STARTING FROM ‘RHWC" 
318. REGISTERS TO BE COMPARED 
;RETURN TO 1$ ON ERROR 

015076 015104 RETURN TO 2$ ON NO ERROR 


015100 104016 ; ERROR 16 :GIVING A NO-OP COMMAND 
015102 000207 RTS PC CAUSED AN ERROR 
;NO REGISTERS SHOULD CHANGE 
;GOOD DATA GIVES REGISTER 
CONTENTS BEFORE COMMAND 
SRECEIVED DATA GIVES REGISTER 
[CONTENTS AFTER COMMAND 
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NO OPERATION FUNCTION TEST 


SEQ 0072 





C2 
C2 
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;*NOW REPEAT TCST BY MOVING IN ALL POSSIBLE ONES 


PC ,a#CLDISK zSET R1-RHCS1, R2=-RHCS2 
#RHWC ,RO ‘ADDR. OF ADDR OF RHWC IN RO 
#177777,@(RO)* =:LOAD 177777 INTO RHWC 

‘LOAD 177777 INTO RHBA 

[LOAD 43010 INTO RHCS2 
#1400,a(RO)+  =:LOAD 1400 INTO RHCS1 
#0,a(RO)+ ;LOAD O_INTO RHER1 
#177777,a(RO)+ =LOAD i777 INTO RHDST 
#0,a(RO)+ ‘LOAD 0 INTO RHER2 
#177777,a(RO)+ =LOAD 9 Ney INTO RHOF 
#177777.a@(RO)* ;LOAD 177777 INTO RHCA 

;LOAD 0 INTO RHER3 

[PUSH RO ON STACK 

SAVE RHER1 TO REINSTATE LATER 

SSAVE RHCS2 TO BE REINSTATED 

[GET DRIVES PRESENT 

CLEAR RACS2 AND CARRY 


; COUN 
;GET BIT INTO CARRY 
[BRANCH IF NO UNIT ON THIS BIT 
177777 sMOVE INTO ERROR REGISTER 
aR2 —e RHCS2 TO NEXT UNIT 


oOoooo°0o 
aad ad aad aed end ad ced 


000010 


‘BRANCH IF 8 NOT DONE 
REINSTATE RHCS2 


015230 572 (RO) + :GET OV S_ IN RO 
015232 177776 #177776,a(RO)+ ;LOAD 177776 INTO RHMR 


015236 041536 PC ,@#CHECKT CHECK DVA,RDY,MOL ,DPR,DRY.V 
015242 066720 ~CPHALT [CANNOT CONTINUE TESTING IF 
015246 000000 ; STOP 

015250 002422 165022 @4NOPERA,ARHCS1 ;GET READY FOR NOPERA 


z*NOW SAVE REGISTERS FOR COMPARISON AFTER A NO-OP 


015256 041624 RO, @4SAVER — REGISTERS 
WC HWC IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


015270 013777 004606 164770 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


015276 013746 002422 @ANOPERA,-(SP) ;GET READY TO MOVE COMMAND 
015302 052716 000001 #G0, (SP) GET READY TO SET GO 
015306 012677 164766 (SP)+,@RHCS1 :GO WITH 


015312 104413 WAIT FOR RDY BIT TO SET 

002300 WAIT FOR RHCS1 REGISTER 

000200 R WAIT FOR RDY BIT IN RHCS1 REGISTER 
015320 000001 ° ZALLOW 10 MICRO SECONDS 
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Siz 015322 000001 1. RDY MUST SET BETWEEN 
3115 ;*CHANGE REGISTERS TO EXPECTED VALUES 


3116 
3117 015324 005737 004750 a4#RH70 RUNNING ON AN one ? 
5$ 31F NOT, SKIP NEXT 
004722 @4NUNIT ZTESTING MORE THAN ONE DRIVE ? 
BN 5$ 7SKIP NEXT IF SO 
3152 100000 004620 ASC ,@ASAVERE+6 §=;CLEAR *SC* IN RHCS1 
3123 015346 5$: 
3124 015346 004740 004636 QAATTENT ,@#SAVERE +24 ;CLEAR APPROPIATE ATA BITS 
3125 015354 042336 RO, @CHREG ;CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 
[1 BIT/BITS TO BE CHANGED 
NEW VALUE OF ATA IS 0 
CHANGE ATA BIT 


;*NOW COMPARE REGISTERS BEFORE NO-OP WITH 
;*AFTER NO-OP COMMAND 


004037 042444 JSR RO, @#COMREG COMPARE SAVED REGISTERS WITH 
004612 AVER ;GOOD DATA SAVED IN *SAVERE’ 
002354 wC TEST DATA STARTING FROM ‘RHWC* 
000022 . 318. REGISTERS TO BE COMPARED 
3139 015402 015406 ;RETURN TO 3$ ON ERROR 
3140 015404 015412 ;RETURN TO 4$ ON NO ERROR 


3141 

3142 015406 104016 : ERROR 16 :GIVING A NO-OP COMMAND 

3143 015410 000207 RTS PC ; CAUSED AN ERROR 

3144 NO REGISTERS SHOULD CHANGE 
;GOOD DATA GIVES REGISTER 
;CONTENTS BEFORE COMMAND 
RECEIVED DATA GIVES REGISTER 
CONTENTS AFTER COMMAND 


3148 
3149 015412 
3150 
3151 





K 6 
CZRJICO, RPO4/5/6 FCTNL MACY11 30A(1052) 27=JUL-78 13:06 PAGE 76 : SEQ 0075 
CZRJIC.P11 27-JUL-78 13: T17 DRIVE CLEAR 


015412 000004 TST17: 
STACK, SP ;RESET STACK 


004604 SAVE TEST NUMBER 
SET R1-RHCS1, R2-RHCS2 
PC ,@4CHECKT CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1 
0154 ~CPHALT ; CANNOT CONTINUE TESTING IF ANY OF 
015442 000000 : STOP 


ALL WRITABLE REGISTER BITS 


#RHWC RO ZADDR. OF ADDR. OF afc IN RO 
#177777,@(RO)* :LOAD 177777 INTO RHWC 
#177776,a(RO)+ :LOAD 177776 INTO RHBA 
#43010,a(RO)+  :LOAD 43010 INTO RHCS2 

#1400, @(RO)+ :LOAD 1400 INTO RHCS1 


#0,a(RO)+ “LOAD 0 INTO RHER1 
mitre. a(RO) + = LOAD y7ryPy INTO RHDST 
#0,a(RO)+ [LOAD 0 INTO RHER2 

re ee @(RO)+ LOAD 177777 INTO RHOF 


015444 


#177777 ,a(RO)+ ;LOAD 177777 INTO RHCA 
[LOAD 0 INTO RHER3 
PUSH RO ON STACK 
Sor | RHER1 TO REINSTATE LATER 
SAVE RHCS2 TO BE REINSTATED 
@ATOTALAT RO GET DRIVES gow! 


aR2 
000010 #8. ,R5 
: RO 


: CLEAR RHCS2 AND CARRY 
; COUNT ER 


:GET BIT INTO CARRY 

85$ [BRANCH IF NO UNIT ON THIS BIT 
177777 #~1 ,@R4 SMOVE INTO ERROR REGISTER 

ane mort taal RHCS2 TO NEXT UNIT 


84$ ;BRANCH IF 8 NOT DONE 

(SP) +,aR2 ;REINSTATE RHCS2 

(SP)+,@R4 SREINSTATE RHER1 

(SP) +,RO 7;POP STACK INTO RO 

(RO) + GET OVER PHAS IN RO 
012730 177776 #177776,a(RO)+ LOAD 177776 INTO RHMR 


015572 017737 164536 004654 @RHCC ,@ASAVERE+42 ;SAVE RHCC IN SAVERE TABLE 
015600 013777 004606 164460 @ARP4VEC ,A@RPVEC ;SET RPO4 VECTOR ADDRESS 


015606 013746 002430 @ADCLEAR,-(SP) ;GET READY TO MOVE COMMAND 
015612 052716 #G0, (SP) :GET READY TO SET GO 
015616 012677 (SP)+,@RHCS1 :GO WITH 


015622 104413 T sWAIT FOR RDY BIT TO SET 
002300 ;WAIT FOR RHCS1 REGISTER 
000200 WAIT FOR RDY BIT IN RHCS1 REGISTER 
000001 . sALLOW 10 MICRO SECONDS 

015632 000001 . RDY MUST SET BETWEEN 


*NOW LOAD 'SAVERE’ REGISTER SNAPSHOT WITH EXPECTED VALUES 


015634 004037 041360 JSR RO, @4F ILLRE MOV 177777 INTO SAVED RHWwC 
015640 002272 RHWC SAVED REGISTER TO CHANGE 
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177777 177777 DATA 
041360 JSR RO, @4F 7LLRE ;MOV_ 177776 INTO SAVED RHBA 
sara REGISTER TO CHANGE 


004616 @ASAVERE +4 ;CLEAR LOCATION FOR RHCS2 
004716 @AUNIT ,@#SAVERE+4;PUT UNIT # BACK IN THE SAVED RHCS2 


015666 004750 @4RH70 ;RUNNING ON AN RH70 CONTROLLER ? 
015672 8$ 31F SO SKIP NEXT RH11 CODE 


015674 042336 JS RO,@#CHREG CHANGE BITS _IN SAVED REGISTER 
CHANGE RHCS2 REGISTER 
33 BIT/BITS TO BE CHANGED 
NEW VALUE OF IR IS 1 
CHANGE IR BIT 
:NEW VALUE OF BAI IS 1 
BAI BIT 


; BIT 
042336 JS RO, @4CHREG SCHANGE BITS IN SAVED REGISTER 
[CHANGE RHCS1 REGISTER 
31 BIT/BITS TO BE CHANGED 
NEW VALUE OF SC IS 1 
; CHANGE SC BIT 
9$ SKIP NEXT RH70 CODE 


042336 : RO,@4CHREG ; CHANGE BITS IN SAVED REGISTER 
CHANGE RHCS2 REGISTER 
32 BIT/BITS TO BE CHANGED 
NEW VALUE OF IR IS 1 
CHANGE IR BIT 
:NEW VALUE OF BAI IS 1 
CHANGE BAI BIT 
004722 @ANUNIT STESTING MORE THAN ONE DRIVE ? 
BN 9$ 7SKIP NEXT IF SO 
100000 004620 os WSC,@MSAVERE+6 CLEAR ‘SC’ IF NOT 


041360 RO, a4F ILLRE sMOV 0 INTO SAVED RHER1 
Seth REGISTER TO CHANGE 


:DA 
041360 RO,@4F ILLRE z:MOV 17437 INTO SAVED RHDST 
—_ REGISTER TO CHANGE 


041360 RO, a4F ILLRE [MOV 0 INTO SAVED RHER2 
;SAVED REGISTER TO CHANGE 


:DAT A 
041360 RO, a4F ILLRE MOV 116000 INTO SAVED RHOF 
SAVED REGISTER TO CHANGE 


041360 JSR RO, @4F ILLRE :MOV 1777 INTO SAVED RHCA 
saves REGISTER TO CHANGE 


:DATA 
041360 JS RO, @4F ILLRE MOV 0 INTO SAVED RHER3 
016046 :SAVED REGISTER TO CHANGE 
016050 000000 0 DATA 
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016052 013746 @ATOTALAT ,~(SP) 4 A BITS OF DRIVE & PRESENT 


016056 043716 @VATTENT, (SP) —_;CLEAR WORKING DRIVE BIT 

016062 (SP)+, @#SAVERE+24 ;MOVE THIS INTO RHAS POSITION 
RO, a4F ILLRE MOV 400 INTO SAVED RHMR 

se REGISTER TO CHANGE 


RO, @4F ILLRE :MOV 10700 INTO SAVED RHDS1 
— REGISTER TO CHANGE 


013737 004644 4$: avdT, QASAVERE +32 ;MOVE DRIVE TYPE INTO RHDT 
;POSITION OF SAVRE TABLE 
016114 013737 002410 004646 @ASN,@4SAVERE+34° ;MOVE SERIAL NUMBER INTO RHSN 
;POSITION OF SAVERE TABLE 


016122 004037 041360 JSR RO, a4F ILLRE s;MOV 0 INTO SAVED RHEC1 
002330 RHE C1 SAVED REGISTER TO CHANGE 
000000 0 ATA 


2D 
041360 JSR RO, a@4F ILLRE SMOV 0 INTO SAVED RHEC2 
sete cOATA. REGISTER TO CHANGE 


042336 JSR RO, @#CHREG ; CHANGE BITS IN SAVED REGISTER 
RHCS1 ; CHANGE RHCS1 REGISTER 
1 31 BIT/BITS TO BE CHANGED 
1 NEW VALUE OF PAR IS 1 


016154 PAR ; CHANGE PAR BIT 


;*NOW THAT SAVERE TABLE HAS BEEN LOADED WITH 
z*EXPECTED VALUES, THE REGISTERS WILL BE COMPARED 
z*WITH SAVERE TABLE 


016156 042444 JSR RO, @#COMREG = COMPARE SAVED REGISTERS WITH 
016162 004612 ERE ’’ 
016164 002354 WC 

016166 000022 < 18, REGISTERS TO BE COMPARED 
016170 016174 RETURN TO 5$ ON ERROR 
016172 016200 “RETURN TO 6$ ON NO ERROR 


016174 104017 : ;DRIVE CLEAR COMMAND 
016176 000207 GAVE AN ERROR 
:GOOD DATA HAS WHAT SHOULD 
7BE IN REGISTER AFTER A 
:DRIVE CLEAR 
sRECEIVED DATA HAS WHAT 


; THE REGISTER ACTUALLY 
; CONTAINED 
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TST20: 


STACK, SP RESET STACK 

#20,a4TSTNM SAVE TEST NUMBER 

PC ,@#(LDISK SET RI-RHCS1, R2-RHCS2 

@4NOPUSH S1S THIS A 220 START ? 

1$ :SKIP THIS TEST IF SO 

a442 MONITOR + A RETURN ADDRESS ? 


1$ 
a4 $SPASS 
1$ 


[SKIP THIS TEST IF NOT 
2$ CONTINUE WITH THIS TEST 
016744 TST21 ; JUMP TO NEXT TEST 
016256 -65$ :-TYPE ASCIZ STRING 
016254 000407 64% ;:GET OVER THE ASCIZ 


016274 013746 004716 @AUNIT,-(SP) ;GET UNIT UNDER TEST 

104405 TYPE IT OUT 

104401 001223 ,SCRLF 

032713 010000 : AMOL , aR3 ;MOL WILL BE HIGH TILL STOP IS HIT 
016312 001375 3% WAIT TILL STOP IS HIT 


016314 104401 016322 ,67$ is TYPE ASCIZ STRING 
016320 000406 BR 66$ 32GET OVER THE ASCIZ 


013746 004716 MO @FUNIT,- (SP) 4 SRY UNDER TEST 
iTY 
001223 , SCRLF 


010000 : AMOL , aR3 ;MOL WILL BE LOW TILL FILE READY 
4$ ;WAIT TILL FILE READY 
041456 PC ,@#CLDISK SET R1-RHCS1, R2-RHCS2 
041514 PC ,@#CHECK CHECK THAT DVA,RDY,MOL .DPR,DRY = 1 
066720 ,CPHALT CANNOT CONTINUE TESTS IF THEY AREN'T 


STOP 
002272 ARHWC ,RO ;ADDR. OF ADDR. OF RHWC IN RO 


;*NOW INITIALIZE ALL THE REGISTERS 


177777 #177777,a(RO)+ ; 177777 INTO RHWC 
#177777.a(RO)+ : 177777 INTO RHBA 
#43010,a(RO)+ : 43010 INTO RHCS2 
#1400,a(RO)+ “LOAD 1400 INTO RHCS1 
#0,a(RO)+ : 0 INTO RHER1 
#177777,a(RO)+ : 177777 INTO RHDST 
#0,a(RO)+ : 0 INTO RHER2 
#177777,a@(RO)*+ ;: 177777 INTO RHOF 
#177777.a(RO)*+ : 177777 INTO RHCA 
[LOAD 0 INTO RHER3 
+;PUSH RO ON STACK 
*SAVE RHER1 TO REINSTATE LATER 
aR2, ) ‘SAVE RHCS2 TO BE REINSTATED 
004742 @#TOTALAT,RO = :GET DRIVES PRESENT 
5012 aR2 SCLEAR RHCS2 AND CARRY 
012705 000010 #8. .R5 * COUNTER 
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88$: ROR RO GET BIT INTO CARRY 
BCC 89$ BRANCH IF NO UNIT ON THIS BIT 
177777 MOV SMOVE INTO ERROR REGISTER 
89$: INC aR2 + ne RHCS2 TO NEXT UNIT 


DEC 
BNE 88$ ;BRANCH IF 8 NOT DONE 
MOV SREINSTATE RHCS2 
MOV SREINSTATE RHER1 
MOV 3 :POP dla Re , INTO RO 
TST (RQ)+ ;GET OVER PHAS IN RO 
177776 MOV #177776,a(RO)* LOAD 177776 INTO RHMR 


013777 004740 163566 MOV @VATTENT ,@RHAS ;CLEAR WORKING DRIVE ‘ATA’ 
013777 002462 163542 MOV @AREADIN,@RHCS1 ;GET READY FOR READIN 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 
004037 041624 JSR RO, @#SAVER SAVE REGISTERS 
002272 HW ;RHWC IS THE FIRST REGISTER SAVED 
004612 STARTING ADDRESS OF WHERE 
000022 18 NUMBER OF REGISTERS 


016550 013777 163510 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


016556 a4RH70 ;RUNNING ON AN RH70 i ? 
016562 1411 7$ SKIP NEXT FOR RH70 I 
@AREADIN,-(SP) GET READY TO MOVE COMMAND 
#GO, (SP) 7GET READY TO SET GO 
(SP5+,@RHCS1 GO WITH 
aR1 RO SAVE RHCS1 DURING ABOVE OPERATION 
aR5.R5 SAVE RHDS1 DURING ABOVE OPERATION 


SKIP NEXT FOR RH11 


013746 : @AREADIN,-(SP) ;GET READY TO MOVE COMMAND 
052716 #GO! IE, (SP) GET READY TO SET "GO" AND 
012677 163456 (SP)+,@RHCS1 :GO WITH 


¥ 
SRIF 


WAIT FOR VV BIT TO SET 

WAIT FOR RHDS1 REGISTER 

WAIT FOR VV BIT IN RHDS1 REGISTER 
sALLOW 10 MICRO SECONDS 

VV MUST SET BETWEEN 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


041360 JSR RO, @4F ILLRE MOV 0 INTO SAVED RHCA 
~~ SAVED REGISTER TO CHANGE 


:DATA 
041360 JSR RO, a@4F ILLRE MOV 0 INTO SAVED RHDST 
ated avi REGISTER TO CHANGE 


042336 JSR RO, @4CHREG [CHANGE BITS IN SAVED REGISTER 
RHOF SCHANGE RHOF REGISTER 
3 ;3 BIT/BITS TO BE CHANGED 


PTATATTTATAT TTS 
SSanearan=s 
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sNEW VALUE OF FMT22 IS 0 
;CHANGE FMT22 BIT 


0 
FMT22 
0 

ECI 

0 


3 HCI BIT 
RO, @4CHREG [CHANGE BITS IN SAVED REGISTER 
[CHANGE RHDS1 REGISTER 
;1 BIT/BITS TO BE CHANGE 
00000 NEW VALUE OF VV IS 1 
016712 CHANGE VV 


7*NOW THAT SAVERE TABLE WITH SAVED REGISTERS HAVE 
;*THE EXPECTED VALUE AFTER A READ-IN COMMAND 
;*COMPARISONS ARE MADE 


016714 JSR RO, @4#COMREG sCOMPARE SAVED REGISTERS WITH 
004612 VERE [GOOD DATA SAVED IN 'SAVERE’ 
TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 
;RETURN TO 5$ ON ERROR 
;RETURN TO 6$ ON NO ERROR 


016732 : ERROR 20 ;READ IN COMMAND GAVE AN 
; ERROR 


016734 RTS PC ; 
;GOOD DATA HAS WHAT SHOULD 
7;BE IN REGISTER AFTER A 
sREAD-IN COMMAND 
RECEIVED DATA HAS WHAT 
3; THE ppp he ACTUALLY CONTAINED 
3 THE FOLLOWING SHOUL 
:BE Be THe REGL REGISTER Tenet 
‘RHOF SHOULD “HAVE FMT22 = 0, 
sHCI = 0, EC 
RHDS1_SHOULD HAVE WV = 1 
TALL OTHER BITS SHOULD 


:BE UNCHANGED 
016736 012737 177777 047274 6$: . MOV #-1,a4PRITEM ;CLEAR PREVIOUS ITEM NUMBER 
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peg oF PS sRESET STACK 
#21 ,@ATSTNM TEST 

PC, SecLDIsk 7SET R1-RHCS1, R2-RHCS2 

PC, a#CHECK [CHECK THAT DVA,RDY,MOL,DPR,DRY = 1 
-CPHALT ; CANNOT CONTINUE TESTS IF THEY AREN'T 


#RHWC RO TADDR. OF ADDR. OF RHWC IN RO 


s*INITIALIZE ALL THE REGISTERS 


#177777,a@(RO)+ ;LOAD 177777 INTO RHWC 
#177777,a(RO)* ;LOAD 177777 INTO RHBA 
#43010,a(RO)+ :LOAD 43010 INTO RHCS2 
#1400, @(RO)+ [LOAD 1400 INTO RHCS1 
#0,a(RO)+ 7LOAD 0 INTO RHER1 
WInTT?, a(RO)+ ;LOAD 177777 INTO RHDST 
#0,a(RO)+ 0 INTO RHER2 
#177777, a(RO) + $LOAD 177777 INTO RHOF 
#177777,a(RO)* LOAD 177777 INTO RHCA 
#0,a(RO)+ 3 


#~-1,a(RO)+ AL OF R 
017056 177776 #177776, a(RO)+ LOAD 177776 INTO RHMR 


017062 013777 004740 163226 Q@4ATTENT,@RHAS ;CLEAR WORKING DRIVE ‘ATA’ 
017070 013777 002462 163202 @WREADIN,@RHCS1 :GET READY FOR READIN 


3;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 


017076 004037 041624 JSR RO, @4#SAVER SAVE REGISTERS 
002272 RHWC SRHWC IS THE FIRST REGISTER SAVED 
004612 SAVERE STARTING ADDRESS OF WHERE 
18. NUMBER OF REGISTERS 


017110 013777 004606 163150 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


017116 004750 , @ARH70 RUNNING ON AN RH70 CONTROLLER ? 
Q  9$ SKIP NEXT IF NOT 
002462 MOV @AREADIN,-(SP) ;GET READY TO MOVE COMMAND 
000001 (SP) :;GET READY TO SET GO 
163140 MO 360 WITH 
@R1 ,RO SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 
017144 000406 10$ SKIP NEXT RH11 CODE 


017146 : 
013746 002462 @AREADIN,-(SP) ;GET READY TO MOVE COMMAND 
052716 000101 AGO! IE, (SP) ;GET READY TO SET "GO" AND 
017156 012677 163116 (SP)+,@RHCS1 GO WITH 


017162 : 
017162 104413 ;WAIT FOR RDY BIT TO SET 
017164 002300 WAIT FOR RHCS1 REGISTER 
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WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 10 MICRO SECONDS 
zRDY MUST SET BETWEEN 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, @4F ILLRE 
toe 


JSR RO, @4F ILLRE 
“tae! 


JSR RO,@4CHREG 
RHOF 
3 
0 
FMT22 
0 
ECI 
0 
RO, @4#CHREG 


017252 vv 


7*NOW THAT SAVERE TABLE 


MOV 0 INTO SAVED RHCA 
SAVED REGISTER TO CHANGE 


TA 
MOV 0 INTO SAVED RHDST 
J oy iy REGISTER TO CHANGE 


; CHANGE BITS IN SAVED REGISTER 

;CHANGE RHOF REGISTER 

‘S BIT/BITS ,s BE CHANGED 
UE Ao Is 0 


;NEW 
sCHANGE ECI 
sNEW 


BIT 
VALUE OF HCI IS 0 
;CHANGE HCI BIT 

CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 

31 BIT/BITS TO - CHANGED 
[NEW VALUE OF VV IS 1 

; CHANGE VV BIT 


WITH SAVED REGISTERS HAVE 
OMMAND 


>*THE EXPECTED VALUE o—_" A READ-IN C 


:*COMPARISONS ARE MAD 


017254 042444 RO, @4#COMREG 
0172 
017270 017276 


017272 104020 
017274 000207 


017276 





+ COMPARE SAVED REGISTERS + Ha 


218. REGISTERS TO BE COMPARED 
RETURN TO 5$ ON ERROR 
‘RETURN TO 6$ ON NO ERROR 


Pemgas 6 COMMAND GAVE AN 
<EO0D D HAS WHAT SHOULD 


ee IN. REGISTER AFTER A 


OMMAND 
RECEIVED DATA HAS WHA 
THE REGISTER ACTUALLY T CONTAINE 
7 THE FOLLOWING SHOULD 
iBE THE yg BAA CONTENTS 
;RHCA = 0, = 0 
; RHOF SHOULD SHAVE “FMT22 = 0, 
HCI = 0, ECI = 
“RHDS1 SHOULD HAVE VV. = 
zALL OTHER BITS SHOULD 


BE UNCHANGED 
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017276 005737 004744 4 te FOR RPO6 DRIV 

017302 001401 $ = 0, TREAT DRIVE AS AN RPO4 
017304 000402 ‘TREAT AS RPO6 = DO NEXT *MAKECL"’ 
orate 000137 017352 : DO SECOND FOLLOWING ‘MAKECL'' 


017312 
STACK, SP RESET STACK 
004604 #23-1,04TSTNM ;THIS SAVES TEST NUMBER 
PC, a#CLDISK INIT DRIVE 
162760 #DMD , @RHMR SET DIAGNOSTIC MODE 
RO, @4MAKECYL ; SUBROUTINE TO GIVE A SEEK 


@4F ISH DON'T DO NEXT *MAKECL"’ 


MSTACK, SP RESET STACK 
004604 #24-1,QA4TSTNM =; THIS SAVES TEST NUMBER 
PC ,@ACLDISK INIT DRIVE 
000001 162720 #DMD , ARHMR SET DIAGNOSTIC MODE 
041126 RO, @AMAKECYL ; SUBROUTINE TO GIVE A SEEK 
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AMSTACK, SP RESET STACK 

SAVE TEST NUMBER 

SET R1-RHCS1, R2-RHCS2 
PC a#CHECKT [CHECK DVA,RDY,MOL .DPR,DRY,VV = 1 
,CPHALT ae CONTINUE TESTING IF ANY OF 


: OP 
#RHWC RO . OF ADDR. OF RHWC IN RO 
#177777,a@(RO) + ary 177777 INTO RHWC 
#177776,.a(RO)+ =LOAD 177776 INTO RHBA 
SLOAD 010 INTO RHCS2 
LOAD 1400 INTO RHCS1 
(RO) + “LOAD 0 INTO RHER1 
mnitT?. a°R0D* ; LOAD eee INTO RHDST 
#0,a(RO)+ SLOAD 0 INTO RHER2 
re ae @(RO)+ =LOAD 177777 INTO RHOF 
#177777.a@(RO)*+ :LOAD 177777 INTO RHCA 
[LOAD 0 INTO RHER3 
*:PUSH RO ON STACK 
‘SAVE RHER1 TO REINSTATE LATER 
[SAVE RHCS2 TO BE REINSTATED 
[GET DRIVES PRESENT 
:CLEAR RHCS2 AND CARRY 


GET BIT INTO CARRY 
5 BRANCH IF NO UNIT ON THIS BIT 
177777 ;MOVE INTO ERROR REGISTER 
aR2 —- RHCS2 TO NEXT UNIT 


4 ;BRANCH IF 8 NOT DONE 

(SP)+,@R2 ZREINSTATE RHCS2 

(SP) +,a@R4 Z;REINSTATE RHER1 

(SP)+,RO 7;POP STACK INTO RO 

(RO) + :GET OVER PHAS IN RO 
017562 177776 #177776,a(RO)+ ;LOAD 177776 INTO RHMR 


017566 002426 162504 @ARECALI,@RHCS1 ;GET READY FOR RECALI 

*NOW SAVE REGISTERS FOR COMPARISON AFTER RECALIBRATE 
017574 004037 041624 RO, @4#SAVER : SAVE REGISTERS 
017600 WC 


;RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 


000010 


04606 162452 @ARP4VEC ,ARPVEC ; 
6 :GET R MOVE C 
:GET a TO SET "GO" AND 
162450 (SP)+,@RHCS1 :GO WITH 
aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
aR3,R5 [SAVE RHDS1 DURING ABOVE OPERATION 
sWAIT FOR DRY BIT TO SET 
[WAIT FOR RHDS1 REGISTER 
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;WAIT FOR DRY BIT IN RHDS1 REGISTER 
;ALLOW 319990 MICRO SECONDS 
DRY MUST SET BETWEEN 

@ARECALI , = (SP) 


; SAVE COMMAND 
#DVA!GO! TE!RDY, (SP) ; INCLUDE DVA!GO!IE!RDY 
@4NUNIT ZARE THERE MORE THAN ONE UNIT 
BRANCH IF ONLY ONE UNIT 


3$ 
SAVE FOR PRINTOUT 
DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY 


BRANCH IF 
RO, @#$BDDAT BAD DATA 
R1,@4#REGADR FAILING REGISTER RHCS1 
21 [DURING ABOVE OPERATION ONL 
MOL ! DPR! VV!PIP, SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,@#SGDDAT ; 
i? ae DURING ABOVE OPERATION ONLY MOL !DPR! VV!PIP 


90 ;BRANCH _IF 

R5,@#$BDDAT BAD DATA 

R3,@4REGADR FAILING REGISTER RHDS1 

63 ;DURING ABOVE OPERATION ONLY 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


041360 RO, @4F ILLRE zsMOV O INTO SAVED RHCC 
:SAVED REGISTER TO CHANGE 


0 zDATA 
041360 RO, @4F ILLRE MOV 116377 INTO SAVED RHOF 
3 eee REGISTER TO CHANGE 


DATA 
004740 @MATTENT ,@ASAVERE +24 T APPROPRIATE ‘ATA* BITS 
041360 RO, a4F ILLRE 7 MOV 104306 INTO SAVED RHCS1 

SAVED REGISTER TO CHANGE 


DATA 
041360 RO, @4F ILLRE MOV 110700 INTO SAVED RHDS1 
;SAVED REGISTER TO CHANGE 
110700 DATA 


7*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND 


042444 JSR RO, @4#COMREG ;COMPARE SAVED REGISTERS WITH 
ERE [GOOD DATA SAVED IN 'SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
218. REGISTERS TO BE COMPARED 
:RETURN TO 1$ ON ERROR 
RETURN TO 2$ ON NO ERROR 


ERROR 64 :RECAL IBRATE COMMAND CAUSED 


RTS PC AN ERROR 
00D oar GIVES WHAT SHOULD 
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RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


3717 
3718 020052 
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004744 TST @ARP06 44 ool FOR RPO6 DRIVE 
3$ = 0, TREAT DRIVE AS AN RPO4 
BR 4$ ‘TREAT AS RPO6 = DO NEXT *MAKECL*’ 
020126 : aA CAT [DO SECOND FOLLOWING ‘MAKECL"’ 


AMSTACK, SP RESET STACK 

004604 #26-1,a#TSTNM  :7HIS SAVES TEST NUMBER 
PC ,a#CLD1 SK INIT DRIVE 

162204 #DMD , ARHMR SET DIAGNOSTIC MODE 
RO, @4MAKECYL : SUBROUT INE TO GIVE A SEEK 


020122 a@4B IRD ;DON'T DO NEXT *MAKECL"' 


020126 


#STACK, SP sRESET STACK 
004604 #27-1,QA4TSTNM =; THIS SAVES TEST NUMBER 
PC ,@4CLDISK INIT DRIVE 
162144 #DMD , @RHMR 7SET DIAGNOSTIC MODE 
sig tid RO, Q4MAKECYL ; SUBROUTINE TO GIVE A SEEK 





CZRJICO, RPO4/ 
CZRJIC.P11 


020162 
020162 
020164 
020170 
020176 
020202 


020206 
020212 
020214 
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000000 
177777 
000000 
002426 


161736 


002426 
004301 
001124 
001126 
004600 


030500 
001124 
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161772 


161740 


kK 7 
27-JUL=78 13:06 PAGE 89 
MAK 


E CURRENT CYLINDER = 377 


AMSTACK, SP RESET STACK 

#27 ,QATSTNM SAVE TEST NUMBER 

PC ,@4CLDISK SET R1-RHCS1, R2-RHCS2 

PC ,@#CHECKT ;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1 
~CPHALT CANNOT CONTINUE TESTING IF ANY OF 


;STOP 
#RHWC RO ;ADDR. OF ADDR OF RHWC IN RO 
#0,a(RO)+ 


#0,a(RO)+ 
#0,a(RO)+ 


Coooooo°o°e°oo 


a 


aL NTO RHER3 
CLEAR ALL BITS OF RHAS 
-a(RO)+ ;LOAD 0 INTO RHMR 
@ARECALI,@RHCS1 :GET READY FOR RECALI 


3*NOW SAVE REGISTERS FOR COMPARISON AFTER RECAL IBRATE 


JSR 
HWC 


RO, @4#SAVER 2 SAVE REGISTERS 
;RHWC IS THE FIRST pet dg SAVED 


@ARP4VEC ,ARPVEC ; 

;GET READY TO MOVE COMMAND 

GET READY TO SET ‘GO’ AND 
(SP)+,@RHCS1 :GO WITH 
aR1 RO SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 ; SAVE RHDS1 DURING oyry OPERATION 


GISTER 
[WAIT FOR DRY BIT IN RHDS1 REGISTER 
jALLOW 319990 MICRO SECONDS 

DRY MUST SET BETWEEN 

AVE COMMAND 


23 
#DVA'GO! TE !RDY, (SP) ; INCLUDE alae ahaa 
(SP) ,a#$GDDAT © ;SAVE FOR PRINT 
(SP)+ RO [DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY 


@ARECALI ,-(SP) 


BRANCH IF GOOD 
RO, AA#SBDDAT BAD DATA 
R1,@4#REGADR FAILING REGISTER RHCS1 
21 [DURING ABOVE OPERATION ON 
WMOL!DPR'VV!PIP,-(SP) _;SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,a#$SGDDAT °;SAVE FOR PRINTOUT 
(SP)+,R5 [DURING ABOVE OPERATION ONLY MOL !DPR!VV!PIP 
90$ BRANCH IF GOOD 
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010537 001126 MOV R5 , @#$BDDAT sBAD DAT 

010337 004600 MOV R3,@#RCGADR SFAILING REGISTER RHDS1 

104063 ERROR 63 DURING ABOVE OPERATION ONLY 
7*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


041360 JSR RO, @4F ILLRE s;MOV_0 INTO SAVED RHCC 
es ‘cata REGISTER TO CHANGE 


004740 @AATTENT ,@ASAVERE +24 7SET APPROPRIATE ‘ATA’ BITS 
042336 JSR RO, @#CHREG ;CHANGE BITS IN SAVED REGISTER 

CHANGE RHDS1 REGISTER 

31 BIT/BITS TO BE CHANGED 

s;NEW VALUE OF ATA IS 1 

; CHANGE ATA BIT 

RO, @#CHREG ; CHANGE BITS IN SAVED REGISTER 

CHANGE RHCS1 REGISTER 

;1 BIT/BITS TO BE CHANGED 

;NEW VALUE OF SC IS 1 

CHANGE SC BIT 


;*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND 


JSR RO, @4#COMREG ; COMPARE SAVED REGISTERS WITH 
RE :GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC* 
318. REGISTERS TO BE COMPARED 
;RETURN TO 1$ ON ERROR 
020522 020530 ;RETURN TO 2$ ON NO ERROR 


020524 104064 : ERROR 64 ee chaen COMMAND CAUSED 


020526 000207 RTS PC ; AN 
‘tee GIVES WHAT SHOULD BE 


; THE 
ZRECEIVED DATA GIVES WHAT WAS 
020530 : ; THERE AFTER A RECALIBRATE 
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020772 
020774 


021010 


021012 
021016 
021022 


021026 
0210 


021050 
021052 
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013746 
052716 
012677 


104413 
2322 
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004724 


167677 
010100 


020636 
020722 


041456 
041514 
066720 


002460 
000001 
161252 


002272 
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UNLOAD COMMAND 


1S THIS A 220 gig * ? 
;SKIP THIS TEST IF 
MONI TOR ge Fi RETURN ADDRESS ? 


sFIRS 

:SKIP THIS TEST IF NOT 

[CONTINUE WITH THIS TEST 

; JUMP TO NEXT TEST 

#STACK, SP RESET STACK 
#30, a4TSTNM SAVE TEST NUMBER 
PC, a#CLDISK SET R1-RHCS1, R2-RHCS2 
PC ,@#CHECKT CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1 
,CPHALT 4 yal CONTINUE TESTING IF ANY OF 


*THIS SETTING OF VV IS FOR LOOP ON ERROR ONLY 
7 *WHERE UNLOAD TAKES EFFECT AND CYCLE UP BRINGS VV DOWN 


@RHDS1,-(SP) :PUSH RHDS1 ONTO STACK 
#167677, (SP) [CLEAR EVERYTHING EXCEPT VV AND MOL 
#VV'MOL.(SP)+ [ARE VV AND MOL SET 
$ [CONTINUE IF YES 
3 TYPE ASCIZ STRING 


3:GET OVER THE ASCIZ 
WAIT FOR CONTINUE 


PC ,aA#CLDISK SET R1-RHCS1, R2-RHCS2 
PC ,@#CHECK CHECK THAT DVA,RDY,MOL,DPR,DRY = 1 
~CPHALT — CONTINUE TESTS IF THEY AREN'T 


:*SET VV IN RHDS1 WITH PACK ACKNOWLEDGE 


@APKACK,-(SP)  ;GET READY TO MOVE COMMAND 
#G0, (SP) :GET READY TO SET GO 
(SP)+,@RHCS1 :GO WITH 


;WAIT FOR VV BIT TO SET 

;WAIT FOR RHDS1 REGISTER 

;WAIT FOR VV BIT IN RHDS1 REGISTER 
;ALLOW 10 MICRO SECONDS 

;VV MUST SET BETWEEN 


PC ,QACHECKT CHECK DVA,RDY,MOL,DPR & VV = 1 
;CHECK THAT ALL OTHER BITS = 0 
UNLIKE THE OTHER STATUS BIT TESTS, 
; THERE IS NO HALT IF IT FAILS = IT IS 


#RHWC RO ;ADDR. OF ADDR OF RHWC IN RO 


;*LOAD ALL POSSIBLE REGISTERS WITH ONES 
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021056 
021062 


021216 
021220 
021226 


021244 
021246 
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013777 
013746 
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000010 


177777 


177776 
002424 


041624 
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#17777. ,a(RO)+ 
#177777 ,a(RO)+ 


#0,a(RO)+ 
w177777 a(RO)+ 
a(RO)+ 
nee a(RO)+ 
#77777. a(RO)+ 


0 
#177776,a(RO)+ 
161072 @AUNL OAD , @RHCS1 


;LOAD 177777 INTO RHWC 
; 177777 INTO RHBA 
10 INTO RHCS2 
1400 INTO RHCS1 
0_INTO RHER1 
177777 INTO RHDST 
0_INTO RHER2 
177777 INTO RHOF 
177777 INTO _RHCA 
LOA 0 INTO RHER3 
PUSH RO ON STACK 
: SAVE RHERT. 10 REINSTATE LATER 
ZSAVE RHCS2 TO BE REINSTATED 
7GET DRIVES PRESENT 
eee AND CARRY 


; COUN 

:GET BIT INTO CARRY 

;BRANCH IF NO UNIT ON THIS BIT 
;MOVE INTO ERROR REGISTER 
Poet taal RHCS2 TO NEXT UNIT 


;BRANCH IF 8 NOT DONE 
;REINSTATE RHCS2 
;REINSTATE RHER1 

:;POP STACK INTO RO 
;GET OVER PHAS IN RO 
;LOAD 177776 INTO RHMR 
;GET READY FOR UNLOAD 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER UNLOAD 


JSR RO, @#SAVER 
RHWC 


@ARPSVEC ,@RPVEC 


@4UNL OAD , = (SP) 
#G0, (SP) 

(SP) +, @RHCS1 
aR1,RO 

@R3,R5 


SAVE REGISTERS 

SRHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


;SET RPO4 VECTOR ADDRESS 


;GET READY TO MOVE COMMAND 
3GET wie’ TO SET GO 


GO Ww 
7 SAVE RHCSI DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


sWAIT FOR BIT TO SET 
i IN RHCS1 REGISTER 


* BI 
TALLOW 10 MICRO SECONDS 
ANOTHER 10 - ‘RDY* MUST SET BETWEEN 
[00 AND 20 MICRO SECONDS 


oP ae ae ae a bP at et a et et ee ee ee ee et et ee ee 
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3 *COMPARE ged yt A OF RHCS1 AND RHDS1, WHICH WERE SAVED 
[*DURING THE UNLOAD COMMAND, WITH THE EXPECTED RESULTS 


013746 MOV @FUNLOAD,-(SP) ;PUSH COMMAND ON STACK 
004201 #DVA:GO!RDY, (SP) ; INCLUDE THESE BITS SET 
@4NUNIT 1S THERE —E THAN ONE UNIT ? 
: IF ONLY ONE UNI 
;PUT SAVED RHCS1 INTO TMP4 
sMASK ALL BUT THE ‘IE’ 7 - RHCS1 
CLEAR ‘1E* IN EXPECTED DAT 
SSET 'IE* STATE FROM ACTUAL *RHCS1 DATA 
052716 100000 #SC, (SP) SET "SC* IN RHCS1 SAVED DATA 


011637 2 (SP) ,@#SGDDAT  ;SAVE EXPECTED DATA FOR PRINTOUT 
022600 (SP)+,RO [COMPARE EXPECTED DATA WITH SAVED 
;RHCS1 DATA AND RESET THE STACK 
10$ CHECK NEXT BITS IF THESE OK 
RO, @#SBDDAT SRHCS1 IS BAD - PRINT IT OUT 
R1,@4#REGADR SREGISTER ADDRESS 
21 [DURING ABOVE OPERATION ONLY THE 
:"DVA', *GO', ‘RDY* AND COMMAND BITS 
;SHOULD BE SET 


012746 : #PIP'DPR,-(SP) ;PUT SOME EXPECTED ae BITS ON STACK 
010537 004760 R5,aaTMP, :PUT SAVED RHDS1 INTO Ti MP4 
042737 ; ; L BUT ‘MOL’ & ‘VV"_IN RHDS1 
042716 0101 :CLEAR ° &@ ‘vV" IN EXPECTED RHDS1 
021370 053716 004760 @ATMPS , (SP) oho EXPECTED ‘e » & ‘Ww’ BIT ala 


021374 011637 (SP) , A#SGDDAT OU 
021400 (SP)+,R5 COMPARE EXPECTED DATA WITH SAVED 
+ RHD 1 DATA AND RESET THE STACK 
021402 11$ ;CONTINUE IF EXPECTED=SAVED 
021404 R5 , @#SBDDAT ;RHDS1 IS BAD - PRINT IT OUT 
021410 004600 MOV R3,@4REGADR ;REGISTER ADDRESS 
021414 104063 63 ;DURING THE ABOVE OPERATION, ONLY ‘PIP 
SAND 'DPR' SHOULD BE SET 
7"MOL' & "VV" ARE DON'T CARES 
021416 


021416 021424 P i ASCIZ STRING 
021422 000425 BR 95 GET OVER THE ASCIZ 
TTHIS PROVIDES A 1 SECOND ‘‘STALL"' 
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NOW CHANGE REGISTERS SAVED BEFORE UNLOAD COMMAND 
sT0 TO EXPECTED VALUES AFTER UNLOAD COMMAND 


3* = AGAIN 'MOL" $ "VV" ARE DON'T CARES 


021476 012746 00 #PIP'DPR,=(SP) ;SET EXPECTED FINAL RHDS1 BITS 
017737 1606 004760 TMP4 GET PRESENT rig eg CONTENTS 


042737 L 
042716 ' & Sw? IN, EXPECTED RHDS1 
021522 053716 004760 ae TMP4, (SP) SET EXPECTED "MOL' & ‘VV' STATES 
[FROM THE ACTUAL (DON'T VEARE COND.) 
021526 042716 WATAIDRY, (SP) =CLEAR THESE ADDITIONAL RHDS1 BITS 
021532 012637 00464 (SP)+, OASAVERE +30 iGHANGE THE SAVED RHDST REGISTER 


RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 
;1 BIT/BITS TO BE CHANGED 
021546 sNEW VALUE OF GO IS 1 
021550 ; CHANGE GO BIT 


021552 @ANUNIT 31S THERE MORE THAN ONE UNIT ? 
1006 7$ SKIP NEXT _IF MORE THAN ONE UNIT 
RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
; CHANGE RHCS1 REGISTER 
;1 BIT/BITS TO BE CHANGED 
NEW VALUE OF SC IS 0 
:CHANGE SC BIT 


@4ATTENT ,@#SAVERE +24 CLEAR APPROPIATE ATA BITS 


3*NOW COMPARE REGISTERS AFTER THE UNLOAD COMMAND 
7 *WITH EXPECTED VALUES 


JSR RO, @A#COMREG + COMPARE SAVED REGISTERS WITH 
ERE *SAVERE" 


I 

7, REGISTERS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 

021616 021624 [RETURN TO 4$ ON NO ERROR 


021620 104023 2 ERROR 23 ; UNLOAD COMMAND GAVE 
021622 000207 RTS PC AN ERROR 
#G00D M lly GIVES WHAT SHOULD 


;BE 
SRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER UNLOAD COMMAND 


021624 : 
104401 021632 ie TY! -— 7” i-TYPE ASCIZ STRING 
0004 7$ 33GET OVER THE ASCIZ 
013746 004716 @AUNIT ,~ (SP) ;GET UNIT UNDER TEST 
021652 104405 
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021654 104401 021662 
021660 000444 

005037 047274 
000000 

041514 
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TYPE 100$ 
BR 


$9$ 
aAPRITEM 
PC ,a#CHECK 
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UNLOAD COMMAND 


sz TYPE ASCIZ STRING 
37GET OVER THE ASCIZ 


CLEAR PREVIOUS ERROR NUMBER 
WAIT FOR CONTINUE 

;CHECKS THAT DVA,RDY,MOL & DPR = 1 
CHECKS THAT ALL OTHER BITS = 0 

; THERE IS NO HALT IF IT FAILS - IT 
1S USED IN THE MIDDLE OF A TEST 


;*SET VV_IN RHDS1 AFTER RESET FROM ACTUATING 
;*THE STANDBY SWITCH AND CYCLING UP (MOL = 1) 


@4PKACK ,~ (SP) 
#G0, (SP) 
(SP) +, @RHCS1 
aR1,RO 


@R3.R5 


7GET READY TO MOVE COMMAND 

;GET READY TO SET GO 

360 WIT 

;SAVE R*¥CS1 DURING ABOVE OPERATION 
SSAVE RiiDS1 DURING ABOVE OPERATION 
sWAIT FOR VV BIT TO SET 

‘WAIT FOR RHDS1 REGISTER 

‘WAIT FOR VV BIT IN RHDS1 REGISTER 
;ALLOW 10 MICRO SECONDS 

;VV MUST SET BETWEEN 
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TST31: 
001106 MO #1$,$LPADR ;;SET SCOPE LOOP ADDRESS 
RESET STACK 
004604 ;SAVE_ TEST NUMBER 
7SET R1-RHCS1, R2-RHCS2 
[CHECK THAT DVA,RDY,MOL ,DPR 1 
; CANNOT CONTINUE TESTS IF They " AREN' T 


STOP 
022104 004610 #1 , Q40F STVL SET OFFSET VALUE TO 1 
022112 2737 004611 #34 ,aMOFSTVL+1 ;SET HCI.ECI.FMT22 


022120 
PC ,a#CLDISK sSET R1-RHCS1, R2-RHCS2 
PC, a#CHECKT “CHECK DVA.RDY,MOL.DPR & V 
SCHECK THAT ALL OTHER BITS = ‘_ 
[UNLIKE THE OTHER STATUS BIT TESTS, 
. T FAILS - IT IS 
ARHWC RO N RO 
#177777,a(RO)+ : 
#177777.@(RO)+ :LOAD 177777 INTO RHBA 
#10,a(RO)+ [LOAD 10 INTO RHCS2 
#1400,a(RO)+ — ;LOAD 1600 INTO RHCS1 
#0,a(RO)+ “LOAD 0 INTO RHER1 
#177777,@(RO) + :LOAD ee INTO RHDST 


MOV #0,a(ROS+ LOAD 0 INTO RHER2 
;*THE OFFSET REGISTER wit BE INCREMENTED FROM 0 TO 377 
022176 013730 @AOFSTVL,@(RO)+ ;SET OFFSET REGISTER 


022202 012730 177777 #177777,a(RO)+ ;LOAD 177777 INTO RHCA 
022206 000000 ) mt 0 INTO RHER3 
H RO ON STACK 
‘SAVE "RHERI TO REINSTATE LATER 
) SAVE RHCS2 TO BE ee NSTATED 
004742 . GET DRIVES PRESEN 
aR2 [CLEAR RHCS2 AND CARRY 
000010 ; COUNTER 


3GET BIT INTO CARRY 
[BRANCH IF NO UNIT ON THIS BIT 
177777 MOV SMOVE INTO ERROR REGISTER 
: aR2 ore RHCS2 TO NEXT UNIT 


;BRANCH IF 8 NOT DONE 
;REINSTATE RHCS2 
SREINSTATE RHER1 
:;POP STACK INTO RO 
(RO) + GET OVER PHAS IN RO 
177776 #177776,a(RO)+ ;LOAD 177776 INTO RHMR 
013777 002454 160006 Q@4OFSETC,@RHCS1 ;GET READY FOR OFSETC 


3*NOW SAVE REGISTERS FOR COMPARISON AFTER OFFSET 
041624 JSR RO, @#SAVER + ort | REGISTERS 
RHWC 


HWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 


0221 
022172 012730 


aad aed ed ad ed ed ce ced cd 
WOWNAUSWN—O 
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0225 
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022516 
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27-JUL- 
000022 
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100000 
053737 


004037 
004612 
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004606 
002454 
000101 
157752 


002454 
004301 
004722 
004760 
177677 
000100 
004760 
100000 
001124 


001126 
004600 


030500 
001124 


001126 
004600 


042336 


004740 


042444 
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157754 


004760 


004636 
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OFFSET AND RETURN TO CENTER LINE COMMAND 


NUMBER OF REGISTERS 
@ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


@AOFSETC,-(SP) ;GET READY TO MOVE COMMAND 
#GO!IE, (SP) GET READY TO SET "GO" AND 


(SP)+,@RHCS1 :GO WITH 
aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


sWAIT FOR DRY BIT TO SET 

WAIT FOR RHDS1 REGISTER 

a FOR DRY BIT IN RHDS1 REGISTER 
LLOW 10000 MICRO SECONDS 


‘ORY MUST SET BETWEEN 
@AOFSETC,-(SP) ;SAVE COMMAND 
#DVA!GO!TE!RDY, (SP) ; INCLUDE DVA!GO!IE!RDY 
@ANUNIT THERE MORE THAN ONE UNIT 


IS 
SET SC_IN RHCS1 
SAVE FOR PRINTOUT 
; DURING S ae OPERATION ONLY DVA!GO! IE!RDY 


: [BAD DATA 
R1.a#REGADR [FAILING REGISTER RHCS1 
21 [DURING ABOVE OPERATION ONLY 
#PIP!MOL'DPR!VV,-(SP) | ;SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) .@#$GDDAT ~°;SAVE FOR PRINTOUT 
(SP)+,R5 “DURING ABOVE OPERATION ONLY PIP!MOL!DPR! VV 
88$ SBRANCH IF GOOD 
RS, a#SBDDAT ‘BAD DATA 
R3. a#REGADR [FAILING REGISTER RHDS1 
‘DURING ABOVE OPERATION ONLY 
:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
JSR RO, @#CHREG :CHANGE BITS IN SAVED REGISTER 
RHCS1 ISTER 
SC 
JSR RO, A#CHREG 
RHDS1 
: 
ATA * CHANGE 
BIS QMATTENT ,@#SAVERE+24  ;SET APPROPRIATE ‘ATA’ BITS 
;*NOW COMPARE REGISTERS AFTER AN OFSET COMMAND 


JSR RO, @4COMREG COMPARE SAVED REGISTERS WITH 
SAVERE :GOOD DATA SAVED IN ‘SAVERE' 
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002354 
000022 
022534 
022540 
104024 
000207 


013777 


013777 
013746 


1405 
010037 


041536 


002456 


041624 


004606 


002456 
000101 
157456 


002456 


001124 


001126 


G 
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ERROR 
RTS 


24 
PC 


157550 3$: MOV @A4ATTENT ,@RHAS 
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T AND RETURN TO CENTER LINE COMMAND 


TEST DATA STARTING FROM ‘RHWC’ 
18. REGISTERS TO BE COMPARED 
;RETURN TO 2$ ON ERROR 

;RETURN TO 3$ ON NO ERROR 


;OFFSET COMMAND CAUSED AN ERROR 
;GOOD DATA IS WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE 
AFTER AN OFFSET COMMAND 


CLEAR WORKING DRIVE ATTENTION 


;*NOW A RETURN TO CENTER LINE COMMAND WILL BE GIVEN 


PC ,@4CHECKT 


157512 @ARETCL ,@RHCS1 


CHECK DVA,RDY,MOL DPR & VV = 1 

CHECK THAT ALL OTHER BITS = 0 

: UNLIKE THE OTHER STATUS BIT TESTS, 
THERE IS NO HALT IF IT FAILS = IT IS 
[GET READY FOR RETCL 


*NOW REGISTERS ARE SAVED FOR COMPARISON AFTER COMMAND 


RO, @4#SAVER 


157460 @ARPSVEC ,A@RPVEC 


@ARETCL ,~(SP) 
A#GO!IE, (SP) 
(SP)+,@RHCS1 
aR1,RO 


aR3.R5 


@ARETCL ,~(SP) 


sSAVE C 
ADVA!GO!IE!RDY, (5) 
@ANUNIT AR 


004760 


8 
RO, @#$BDDAT 


: SAVE REGISTERS 

;RHWC IS THE FIRST REGISTER SAVED 
ZSTARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


SET RPO4 VECTOR ADDRESS 


:GET READY TO MOVE COMMAND 

GET READY TO SET ‘GO" AND 

:GO WITH 

SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


z;WAIT FOR DRY BIT TO SET 

;WAIT FOR RHDS1 REGISTER 

;WAIT FOR DRY BIT IN RHDS1 REGISTER 
zALLOW 10000 MICRO SECONDS 


;DRY MUST SET BETWEEN 
OMMAND 

INCLUDE DVA!GO!IE!RDY 
THERE MORE THAN ONE UNIT 
;BRANCH IF ONLY ONE UNIT 


SGET RHCS1 
KEEP IE BIT 
CLEAR IE 7 DATA 


3S 
;SAVE FOR PRINTOUT 


DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY 
BRANCH IF GOOD 
:BAD DATA 
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022720 010137 004600 MOV R1,@4REGADR ;FAILING REGISTER RHCS1 
104021 21 [DURING ABOVE OPERATION ONLY 
030500 3 #PIP!MOL!DPR!VV,-(SP) _;SAVE BITS SET DURING OPERATION IN RHDS1 
001124 (SP) ,a#$GDDAT ~;SAVE FOR PRINTOUT 
(SP)+,R5 :DURING ABOVE OPERATION ONLY PIP!MOL!DPR! VV 
91$ [BRANCH IF GOOD 
001126 RS, @#S$BDDAT BAD DATA 
004600 MOV R3,Q4REGADR sFAILING REGISTER RHDS1 
022752 104063 63 DURING ABOVE OPERATION ONLY 


;*NOW CHANGE SAVED REGISTER TO EXPECTED VALUE 


022754 JSR RO, @4#CHREG ; CHANGE BITS IN SAVED REGISTER 
RHCS1 :CHANGE RHCS1 REGISTER 
1 1 BIT/BITS TO BE CHANGED 
1 NEW VALUE OF SC IS 1 
SC CHANGE SC BIT 
JSR RO, @4#CHREG CHANGE BITS IN SAVED REGISTER 
RHDS1 CHANGE RHDS1 REGISTER 
1 3:1 BIT/BITS TO BE CHANGED 
1 ;NEW as A i Is 1 


ATA CHANGE A 

BIS @AATTENT, aMSAVERE+24 nSeT APPROPRIATE "ATA" BITS 

JSR RO, a#F ILLRE ;MOV BITIS!HCI'ECI!FMT22 INTO SAVED RHOF 
RHOF ;SAVED REGISTER TO CHANGE 
BITIS!HCI!ECI!FMT22 DATA 


3;*NOW COMPARE REGISTERS AFTER RETURN-TO-CENTER-L INE 
042444 - 2A COMREG COMPARE SAVED REGISTERS WITH 
;GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC" 
:18. REGISTERS TO BE COMPARED 


ae A RA RA RRR RRR HR KRKRHAR HEL LP 


;RETURN TO CENTER=LINE 
; COMMAND CAUSED AN ERROR 
: GOOD DATA HAS WHAT SHOULD 


;BE THERE 
;RECEIVED DATA HAS WHAT WAS 
; THERE AFTER COMMAND 


PC,QMCLDISK . ;SET R1-RHCS1, R2-RHCS2 
@40F STVL GET NEXT OFFSET VALUE 
004610 #100,aM0FSTVL ;SEE IF UNUSED BIT 6 IS ON 
7$ :NO SO DO SOME MORE 
000100 004610 bef @MOFSTVL ;YES SO BY-PASS IT 
004610 7$: @40F STVL ‘OLETE COMBINATIONS ARE 
023076 6$ :BRANCH IF 377 NOT DONE 
023100 Side BRANCH TO NEXT_TEST 
023102 000137 022120 : avis ;JUMP BECAUSE 377 NOT DONE 
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oO 
™ 
m 


000004 TST32: E 
012737 000764 004756 18 MOV # 500.,a4TMP1 ;COUNTER 


001900 STACK , SP RESET STACK 

000032 004604 #32 ,QATSTNM SAVE TEST NUMBER 

041456 PC ,@4CLDISK SET R1-RHCS1, R2-RHCS2 

041536 PC ,@4CHECKT [CHECK DVA,RDY.MOL,DPR,DRY,VV = 1 
066720 ~CPHALT ‘Sion CONTINUE TESTING IF ANY OF 


041442 RO, @40F SET FSET 
£360 IN OFSET REGISTER 
002454 @AOFSETC,-(SP) ;GET READY TO MOVE COMMAND 
101 #GO!IE, (SP) GET READY TO SET GO" AND 
157110 (SP)+,@RHCS1 :GO WITH 
WA [WAIT FOR DRY BIT TO SET 
[WAIT FOR RHDS1 REGISTER 
sWAIT FOR DRY BIT IN RHDS1 REGISTER 
sALLOW 3500 MICRO SECONDS 
. DRY MUST id BE TWEEN 
157112 oree: :1S ERR SET? 


26 : REPEATED OFFSETS CAUSED AN ERROR 


PC ,@#CLDISK SET R1-RHCS1, R2-RHCS2 
@ARECALI,-(SP) GET READY TO MOVE COMMAND 
#GO!IE, (SP) 3GET READY TO SET GO" AND 
157042 (SP)+,@RHCS1 760 WITH 
sWAIT FOR DRY BIT TO SET 
:WAIT FOR RHDS1 REGISTER 
;WAIT FOR DRY BIT IN RHDS1 REGISTER 
ALLOW 250000 MICRO SECONDS 
:DRY MUST SET BETWEEN 
: T DOWN 


> COUN 
BRANCH IF DONE 
023256 :GO BACK AND DO IT AGIEN 


HRHALKRALHLDPHRHHRHLHDARALHLHAHEA HHA LAH A DPHLHEHHHR HEL HRHLHRHEHREHEHRAEHRHYELHLH HELLS LLL LS 
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.-SBTTL READ/WRITE TESTS USING MEDIA 
023260 000004 TST33: SCOPE 
023262 012706 001000 #STACK, SP ;RESET STACK 
023266 37 0000 #33 ,Q4TSTNM SAVE TEST NUMBER 
023274 004737 6 PC,@4CLDISK ;SET R1-RHCS1, R2-RHCS2 


7*FILL WRITE FROM BUFFER WITH HEADER 


an 
a Ld 
DD» 


JSR RO, @4F LHEAD ; SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 

4 ZNUMBER OF WORDS SAVED 
— iF IRST DATA WORD 


0 ; D 
023316 000000 0 FOURTH DATA WORD 
;*FILL WRITE FROM BUFFER WITH DATA 


023320 041326 JSR RO,@4CLAREA CLEAR 256. WORDS, FROM WRFROM+10 
023324 WRF ROM+ 10 fh aaa FROM WRFROM+10 
023326 000400 256. 3256. WOR 

023330 0 sFILL wit 1H * 


3*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 
7*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
>*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT 

:*CHANGE WRITE FROM BUFFER 


023332 041302 JSR RO, a4F LHEAD SAVE HEADER ig Be IN REINTO 
0233 RE INTO LOCATION. WHERE SAVED 
4 [NUMBER OF WORDS SAVED 
zones 


0 


0 44 A WORD 

041326 JSR RO,@A#CLAREA AR 256. WORDS, FROM REINTO+10 
RE INTO+10 STARTING FROM REINTO+10 
256. 3256. WORDS 

SFILL WITH 0 


3;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


043430 JSR RO, @4RUN ;SETUP TO RUN FOR DATA COMMAND 
0 :CYLINDER 0 
sSECTOR 0 


; TRACK 0 
-256.-4 WORD COUNT (DATA) = 256. + 
WRF ROM ;BUS ADDRESS 
0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 
WRIFOR [GET READY TO DO A WRIFOR 


3*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 


004037 941624 JSR RO, @4SAVER SAVE REGISTERS 
002272 RHWC ;RHWC IS THE FIRST REGISTER SAVED 


Lm mI mL RI RL RL RL RL RRL RL AL ALLL LL RL A ALAA LALLA ALA ALAA ALANAAU AAAS RPS BHRHHHLHRHKLE HLL LE 
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000021 


004737 
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000000 
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041536 
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002444 
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156624 


010500 
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WRITE/READ HEADER AND DATA (0'S) 


SAVERE STARTING ADDRESS OF WHERE 
17. NUMBER OF REGISTERS 


JSR PC ,@#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
oo ,CPHALT : CANNOT CONTINUE TESTING IF ANY OF 


@ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


@AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
;GET READY TO SET ‘GO' AND 
:GO WITH 
;SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


:*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 


;WAIT FOR RDY BIT TO SET 
zWAIT FOR RHCS1 REGISTER 
WAIT FOR RDY BIT IN QHCS1 REGISTER 
;ALLOW 9080 MICRO SECONDS 
sRDY MUST SET BETWEEN 
@AWRIFOR ,~ (SP) AV 


7S COMMAND 

MIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 

(SP) ,@#SGDDAT ;SAVE FOR PRINTOUT 

( ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
BRANCH IF GOOD 
s:BAD DATA 

R1,@#REGADR FAILING REGISTER RHCS1 

21 ABOVE OPERATION 


; DURING ONL Y 
#MOL ! DPR! VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 


(SP) ,.@#$GDDAT ;SAVE FOR PRINTOUT 
(SP)+,R5 :DURING ABOVE OPERATION ONLY MOL!DPR! VV 
:BRANCH IF GOOD 
[BAD DATA 
sFAILING REGISTER RHDS1 
;DURING ABOVE OPERATION ONLY 


3*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @4F ILLRE s;MOV 0 INTO SAVED RHWC 
RHWC SAVED REGISTER TO CHANGE 


0 DATA 
JSR RO, @4F ILLRE MOV WRFROM+<260. *2> RR lt SAVED RHBA 


RHBA SAVED REGISTER TO C 

WRF ROM+<260. *2> :DATA 

JSR RO, @4F ILLRE ;MOV 1 INTO SAVED RHDST 
poe ae REGISTER TO CHANGE 


3*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
s*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 
SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
wC TEST DATA STARTING FROM "RHWC" 


SEQ 0101 





WICC IU TC TU ee eee re ere leleae reales re realest ea) 


w 


WAU UAL LAA ALAA UI Ua LAU UA LA UA VIA MI UA ALA UI IU 
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000021 ; 317. REGISTERS TO BE COMPARED 
023620 [RETURN TO 1$ ON ERROR 
023624 ;RETURN TO 2$ ON NO ERROR 


104027 : ERROR 27 WRITE HEADER AND DATA 
000207 RTS PC ;CAUSED IMPROPER REGISTER 


; CHANGE 
£ GOOD one GIVES WHAT SHOULD 


:BE R 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMAND 


3 *NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
;*NOTHING GOT CHANGED 


043474 RO, @#COMPAR ; COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM REINTO 
;TEST DATA STARTS FROM WRFROM 
3260. WORDS TO BE COMPARED 
[RETURN TO 3$ ON ERROR 
;RETURN TO 4$ ON NO ERROR 


ERROR 30 ;WRITE HEADER AND DATA 
RTS PC ; CHANGED WRITE FROM BUFFER 


:*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
;*READ INTO BUFFER IS FILLED WITH ONES 


004737 041456 JSR PC,aACLDISK SET R1-RHCS1, R2-RHCS2 
004037 041326 JSR RO,@4#CLAREA TCLEAR 260. WORDS, A REINTO 
003534 RE INTO ZSTARTING FROM REIN 
000404 260. 3260. WORDS 
177777 = FILL WITH -1 

:*NOW FILL COMMAND 


043430 JSR RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 ieee 0 


0 sSEc 

0 ; TRACK 0 

-256.-4 WORD COUNT (DATA) = 256. + 
RE INTO ;BUS ADDRESS 


0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
014000 ECI!FMT22 316 BITS PER WORD FORMAT 
002450 REFOR ;GET READY TO DO A REFOR 

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 

004037 041624 RO, @A#SAVER SAVE REGISTERS 
002272 WC sRHWC IS THE FIRST REGISTER SAVED 
004612 STARTING ADDRESS OF WHERE 

023716 000022 18. [NUMBER OF REGISTERS 


023720 004737 041536 PC ,@#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 


RURAL ALR RAL LALLA ALAA PANAMA AAA AAA AAA IAA UI UI IAI IIIA 
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023724 104401 hig ,CPHALT ; CANNOT CONTINUE TESTING IF ANY OF 
023730 000000 ; STOP 


023732 013777 156326 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


023740 013746 @AREFOR,-(SP)  ;GET READY TO MOVE COMMAND 
#GO!IE, (SP) 3GE1 a TO SET "GO" AND 
156324 (SP)+,@RHCS1 360 WITH 
aR1 ,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR RDY BIT TO SET 
;WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9080 MICRO SECONDS 
zRDY MUST SET BETWEEN 
@AREF OR , = (SP) Vv 


SAVE COMMAND 
MIE'GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
(SP) ,@4#$GDDAT ;SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY IE!GO!DVA 
BRANCH IF GOOD 
:BAD DATA 
FAILING REGISTER RHCS1 
2 ;DURING ABOVE OPERATION ONLY 
010500 3 #MOL ! DPR! VV,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
001124 (SP) ,a#$GDDAT ; SAVE FOR PRINTOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL !DPR! VV 
69$ BRANCH IF GOOD 


001126 R5 ,@A#$BDDAT ;BAD DATA 
004600 R3,@4REGADR FAILING REGISTER RHDS1 
024050 63 [DURING ABOVE OPERATION ONLY 


> *CHANGE SAVED REGISTERS TO EXPECTED VALUES 


024052 041360 JSR RO, a4F ILLRE ;MOV 0 INTO SAVED RHWC 
RHwC SAVED REGISTER TO CHANGE 


0 DATA 

041360 JSR RO, a4F ILLRE SMOV REINTO+<260.*2> INTO SAVED RHBA 
RHBA SAVED REGISTER TO CHANGE 
RE INTO+<260. *2> ATA 


:D 
041360 JSR RO, a4F ILLRE ;MOV 1 INTO SAVED RHDST 
vest erty REGISTER TO CHANGE 


;*COMPARE REGISTER BEFORE READ HEADER AND DATA 
*WITH REGISTERS AFTER COMMAND 


042444 JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 
VERE GOOD DATA SAVED IN ‘SAVERE" 
TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 
[RETURN TO 5$ ON ERROR 
024124 ;RETURN TO 6$ ON NO ERROR 


104031 : ERROR 31 READ HEADER AND DATA CAUSED 
000207 RTS PC ; IMPROPER REGISTER CHANGE 
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;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
:*THE READ WAS GOOD 


an 
la Lad 
Dz 


024124 " 

004037 043474 RO, @#COMPAR COMPARE TWO BLOCKS OF MEMORY 
002470 ROM ;GOOD DATA STARTS FROM WRF ROM 
003534 TEST DATA STARTS FROM REINTO 
000404 . 5260. WORDS TO BE COMPARED 
024142 [RETURN TO 7$ ON ERROR 

024140 024146 ;RETURN TO 10$ ON NO ERROR 


024142 104032 : ;WRITE HEADER AND DATA 

024144 000207 ;FOLLOWED BY A READ HEADER 
;AND DATA GAVE A READ ERROR 
;ERROR MAY BE IN READ OR WRITE 


024146 


STS Te Te Te Te Te 10.10 10 Te 10 LCC Tee ee TO Le ee Te Le Lee fee Le Te Le resi eater esl eal eal eal eal siesta eal eal al al al sk Al ak Ak a a a A 





CZRJICO, RPO4/5/6 cm. 


C2RJIC.P11 27-JUL- 
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024232 
024234 
024240 
024244 
024246 


024254 
024260 


024272 
024274 


024332 


013777 
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004604 


156012 


TST34: 
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E/READ HEADER AND DATA (0°S) 


STACK, SP sRESET STACK 
#34 ,QATSTNM ;SAVE_ TEST NUMBER 
PC ,a#CLDISK 3SET R1-RHCS1, R2-RHCS2 
7*FILL WRITE FROM BUFFER WITH EXPECTED DATA 


RO, @#CLAREA ;CLEAR 256. WORDS, FROM WRFROM 
ae > STARTING gate WRF ROM 


3256. WORDS 
0 sFILL WITH O 
3*NOW THE READ DATA COMMAND WILL BE FILLED 
SR RO, @#RUN SETUP TO a FOR DATA COMMAND 


J 
0 
0 


-256. 


REINTO 

;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
READAT ;GET READY TO DO A READAT 


7*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


JSR RO, @#SAVER ; SAVE REGISTERS 

RHWC ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE SSTARTING ADDRESS OF WHERE 

18. NUMBER OF REGISTERS 


JSR PC ,@#CHECKT CHECK DVA,RDY.MOL .DPR,DRY,VV = 1 
ho -CPHALT a CONTINUE TESTING IF ANY OF 


@ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


erie ca -(SP) ;GET READY TO MOVE COMMAND 

‘on. win TO SET "GO" AND 
7SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
WAIT FOR RDY BIT IN RHCS1 REGISTER 
sALLOW 9080 og B. SECONDS 
“a ;RDY MUST SET BETWE 


@AREADAT 3SAVE COMMAND 

#IE'GO!DVA,(SP) :INCLUDE IE!GO!DVA 

(SP) ,aW$GDDAT SAVE FOR PRINTOUT 

(SP)+,RO [DURING ABOVE OPERATION ONLY IE!GO!DVA 


6 BRANCH _ IF 
RO, @#$BDDAT :BAD DATA 
R1,@4REGADR FAILING REGISTER RHCS1 


SEQ 0105 





cj 
Ci 
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024414 


024416 


0244 
024432 


024434 
024436 


024440 


024454 


024456 
024460 


024462 


104021 21 DURING ABOVE OPERATION ONLY 
012746 010590 648: MMOL !DPRIVV, ~(sP5 ;SAVE BITS SET DURING OPERATION IN RHDS1 
011637 001124 (SP) ,a#$GDDAT  ;SAVE FOR PRINTOUT 
022605 (SP)+,R5 [DURING ABOVE OPERATION ONLY MOL !DPR! VV 
001405 66$ BRANCH Y GOOD 
Aye La 001126 R5 ,@#SBDDAT sBAD DAT 
004600 R3,@4#REGADR FAILING. REGISTER RHDS1 
63 [DURING ABOVE OPERATION ONLY 


7*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @4F ILLRE zMOV_0 INTO SAVED RHWC 
RHWC _—_ REGISTER TO CHANGE 


0 ;DATA 

JSR RO, @4F ILLRE MOV REINTO+<256.*2> iNTO SAVED RHBA 
RHBA SAVED REGISTER TO CHANGE 

r! pleat *2> ATA 

J 


RO, @4F ILLRE zMOV 1 1hTO SAVED RHDST 
ae _ REGISTER TO CHANGE 


3*NOW COMPARE REGISTERS BEFORE READ DATA WITH 
;*AFTER COMMAND 


JSR RO, @#COMREG ; COMPARE SAVED REGISTERS WITH 
VERE ;GOOD DATA SAVED IN ‘SAVERE’ 
TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 
0244 [RETURN TO 1$ ON ERROR 
024440 ;RETURN TO 2$ ON NO ERROR 


104033 : ERROR 33 READ DATA CAUSED IMPROPER REGISTER 


000207 RTS PC iC 
; GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 
— ad INTO BUFFER WiLL BE CHECKED TO SEE THAT READ 


** 
’ 


JSR RO, @4#COMPAR COMPARE TWO BLOCKS OF MEMORY 
WRF ROM ;GOOD DATA STARTS FROM WRFROM 
RE INTO TEST DATA STARTS FROM REINTO 
256. 7256. WORDS TO BE COMPARED 
$ [RETURN TO 3$ ON ERROR 

024462 4$ ;RETURN TO 4$ ON NO ERROR 


104034 : ERROR 34 READ DATA COMMAND 
000207 RTS = READ INCORRECTLY 
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000070 
125252 
004037 043430 
000000 


000 


000 
177470 
002470 
000000 


041624 
041536 
066720 


013777 004606 
013746 002442 
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004604 


155440 


TST35: 


D9 
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DATA (0'S) 


STACK, SP ;RESET STACK 
#35 ,@ATSTNM ;SAVE_ TEST NUMBER 
PC ,@4CLDISK ;SET R1-RHCS1, R2-RHCS2 
7*NOW FILL WRITE FROM BUFFER -200 OF 1°S AND 56 OF 125252 


JSR RO, @#CLAREA CLEAR 200. WORDS, FROM WRFROM 
WRF ROM STARTING FROM WRFROM 
- DS 


7200. WOR 

sFILL WITH <1 

JSR RO, @4CLAREA 7 CLEAR 56. WORDS, FROM WRFROM+<200.*2> 
WRF ROM+<200. *2> STARTING FROM WRFROM+<200. *2> 
56. 356. vorbs 

125252 sFILL WITH 125252 

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
:*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 

7*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 


JSR RO, @#CLAREA AR 200. WORDS, A RE INTO 
Se Into ‘STARTING — REINT 


5200. WORD 
-1 SFILL WITH -1 
JSR RO, @#CLAREA sCLEAR 56. WORDS, FROM REINTO+<200.*2> 
RE INTO#<200- *2> STARTING FROM REINTO+<200. *2> 
56. 756. WORDS 
125252 FILL WITH 125252 
7*NOW WRITE DATA COMMAND WILL BE LOADED 
‘' RO,@4RUN dy A TO ia FOR DATA COMMAND 
0 
0 
-200. 
phere 


ADDRESS 
:DO NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 

WRIDAT [GET READY TO DO A WRIDAT 


z*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 


JSR RO, @#SAVER SAVE REGISTERS 

RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 

18. [NUMBER OF REGISTERS 


JSR PC ,@A#CHECKT 7CHECK DVA,RDY.MOL,DPR,DRY.VV = 1 
TYPE ~CPHALT : CANNOT CONTINUE TESTING IF ANY OF 
HALT 3; STOP 

MOV @ARP4VEC,A@RPVEC ;SET RPO4 VECTOR ADDRESS 


MOV QAWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 


SEQ 0107 





C2 
C2 
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024632 052716 000101 #GO!'IE, (SP) :GET READY TO SET 'GO" AND 
024636 155436 (SP)+,3RHCS1 § :GO WITH 
aR1,RO [SAVE RHCS1 DURING ABOVE OPERATION 
aR3.R5 :SAVE RHDS1 DURING ABOVE OPERATION 


z*ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


;WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
zsWAIT FOR RDY BIT IN RHCS1 REGISTER 
[ALLOW 9080 MICRO SECONDS 
zRDY MUST SET BETWEEN 
@AWRIDAT,-(SP) ;SAVE COMMAND 


#1E!GO!DVA, (SP) 5 Ae Fe IE!GO!DVA 

(SP) , @#SGDDAT SAVE FOR PRINTOUT 

(SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
64$ BRANCH IF GOOD 


RO, @#$BDDAT :BAD DATA 

R1,@4#REGADR FAILING REGISTER RHCS1 

21 ;DURING ABOVE OPERATION ONLY 

#MOL ! DPR! VV,-(SP) ol BITS SET DURING OPERATION IN RHDS1 
(SP) ,@#$GDDAT ;SAVE FOR PRINTOUT 

(SP)+,R5 [DURING ABOVE OPERATION ONLY MOL !DPR! VV 

66$ BRANCH IF GOOD 

R5 ,@#$BDDAT 


;BAD DATA 
R3,@4REGADR ;FAILING REGISTER RHDS1 
63 ;DURING ABOVE OPERATION ONLY 


:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
JSR RO, @4F ILLRE zMOV_0 INTO SAVED RHWC 
RHWC 


6 aw REGISTER TO CHANGE 
ee RO, @4F ILLRE MOV _WRFROM+<200.*2> INTO SAVED RHBA 


SAVED REGISTER TO CHANGE 
5 aaa «ye -*2> 


DATA 
RO, @4F ILLRE ;MOV_1 INTO SAVED RHDST 
poy det REGISTER? TO CHANGE 


:*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
> *AF TER COMMAND 


JSR RO, a4COMREG ; COMPARE SAVED REGISTERS WITH 
VERE :GOOD DATA SAVED IN 'SAVERE* 
TEST DATA STARTING FROM ‘RHWC" 
[18. REGISTERS TO BE COMPARED 
025006 ;RETURN TO 1$ ON ERROR 
025012 ;RETURN TO 2$ ON NO ERROR 


025006 104035 : ERROR 35 WRITE DATA COMMAND CAUSED 
025010 000207 RTS PC : IMPROPER REGISTER CHANGE 
:GOOD DATA GIVES WHAT SHOULD 


SRECEIVED DATA GIVES WHAT WAS 
‘THERE AFTER COMMAND 


SEQ 0108 
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025012 


025026 


025030 
025032 


041456 
041326 


041326 


041326 


041326 


043430 


014000 
025130 002446 


025132 004037 041624 
025136 002272 
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T35 
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13: 
WRITE/READ DATA (1°S 


7*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 


JSR RO, @4COMPAR 
REINTO 

WRF ROM 

256. 

3$ 


4$ 


ERROR 36 
RTS PC 


COMPARE TWO BLOCKS OF MEMORY 


;GOOD DATA STARTS FROM REINTO 
2 TEST DATA STARTS FROM WRFROM 
;256. WORDS TO BE COMPARED 
[RETURN TO 3$ ON ERROR 
;RETURN TO 4$ ON NO ERROR 


;WRITE DATA COMMAND CHANGED 
;WRITE FROM BUFFER 


;*NOW A READ DATA COMMAND WILL BE GIVEN 
7*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF 377 


PC ,@#CLDISK 


RO, @ACLAREA :CLE 


7SET R1-RHCS1, R2-RHCS2 


AR 200. WORDS, FROM REINTO 


= STARTING FROM REINTO 


JSR RO, @#CLAREA 
RE INTO+<206. -*2> 


377 
:*FILL WRITE FROM BUFFER 
JSR RO, @#CLAREA 
WRF ROM 
200. 


JSR RO, @ACLAREA 
eraaecers. *2> 


6. 
377 
:*NOW FILL COMMAND 
“ RO, @4#RUN 
0 
0 
-200. 

RE INTO 


ECI!FMT22 
READAT 


:*NOW SAVE REGISTERS FOR 
JSR RO, @#SAVER 
RHWC 


WORDS 

FILL WITH O 
TCLEAR 56. WORDS, FROM REINTO+<200. *2> 
STARTING FROM REINTO+<200. *2> 


756. WORDS 
sFILL WITH 377 


WITH 200 ONES AND 56 OF 377 
CLEAR 200. WORDS, FROM WRFROM 
ZSTARTING FROM WRFROM 

:200. WORDS 

Hat WITH -1 


;CLEAR 56. WORDS, FROM WRFROM+<200.*2> 
STARTING FROM WRFROM+<200. *2> 


356. WORDS 
sFILL WITH 377 


;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 0 
SECTOR 0 


; TRACK 0 

[WORD COUNT = 2 

BUS ADDRESS 

:D0 NOT INHIBIT BUS ey: INCREMENT 
316 BITS PER WORD FORMAT 

;GET READY TO DO A READAT 


COMPARISON AFTER READ DATA COMMAND 


7 SAVE REGISTERS 
;RHWC IS THE FIRST REGISTER SAVED 


SEQ 0109 
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025140 004612 SAVERE STARTING ADDRESS OF WHERE 
025142 000022 18. ;NUMBER OF REGISTERS 


025144 004737 JSR PC ,@#CHECKT CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1 
025150 104401 ~CPHALT [CANNOT CONTINUE TESTING IF ANY OF 
025154 000000 : STOP 


025156 013777 155102 QARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 @AREADAT,-(SP) ;GET READY TO MOVE COMMAND 
MGO!IE, (SP) GET READY TO SET ‘GO’ AND 
(SP) +,@RHCS1 GO WITH 
@R1,RO SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR RDY BIT TO SET 
[WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 
SALLOW 9080 MICRO SECONDS 
:RDY MUST SET BETWEEN 
@AREADAT,-(SP) ;SAVE COMMAND 
MIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
(SP),@4#$GDDAT ;SAVE FOR PRINTOUT 
(SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
67$ ;BRANCH IF GOOD 


RO, @#S$BDDAT BAD DATA 
R1,@4REGADR FAILING REGISTER RHCS1 
1 ;DURING ABOVE OPERATION ONLY 
AMOL ! DPR! VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,@#$GDDAT ;SAVE FOR PRINTOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL !DPR! VV 
69$ ;BRANCH IF GOOD 
RS, @#$BDDAT ; DATA 
MOV R3,@4REGADR FAILING REGISTER RHDS1 
025274 104063 63 ;DURING ABOVE OPERATION ONLY 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


025276 041360 JSR RO, @4F ILLRE sMOV_0 INTO SAVED RHWC 
RHWC Ft REGISTER TO CHANGE 


0 ; 

041360 JSR RO, @4F ILLRE sMOV REINTO+<200.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 
RE INTO+<200. *2> 


iDATA 
041360 JSR RO, @4F ILLRE z;MOV_1 INTO SAVED RHDST 
RHDST SAVED REGISTER TO CHANGE 
025324 000001 1 DATA 


;*COMPARE REGISTERS BEFORE READ DATA COMMAND 
;*WITH REGISTERS AFTER COMMAND 


025326 042444 JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 
004612 .  SAVERE ;GOOD DATA SAVED IN "SAVERE' 
WC TEST DATA STARTING FROM ‘RHWC" 
18. 718. REGISTERS TO BE COMPARED 
025344 5$ [RETURN TO 5$ ON ERROR 
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025342 025350 6$ ;RETURN TO 6$ ON NO ERROR 


025344 104033 : ERROR 33 ;READ DATA CAUSED IMPROPER 
025346 000207 RTS PC REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD BE THERE 
SRECEIVED DATA GIVES WHAT WAS THERE 
zAFTER COMMAND 


;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


025350 
JSR RO, @4#COMPAR COMPARE TWO BLOCKS OF MEMORY 
WRF ROM ;GOOD DATA STARTS FROM WRFROM 
REINTO TEST DATA STARTS FROM REINTO 
256. 3256. WORDS TO BE COMPARED 
025366 $ ;RETURN TO 7$ ON ERROR 
025372 10$ RETURN TO 10$ ON NO ERROR 


025366 104034 : ERROR 34 ; INCORRECT DATA AFTER 

025370 000207 RTS PC ;WRITE DATA FOLLOWED BY A 
READ DATA 

025372 


5 
5 
5 
5 
>| 
5 
5 
$ 
5 
5 
4 
5 
5 
¢ 
F 
é 
é 
é 
‘ 
é 
i 
i 
‘ 
i 
F 
i 
i 
< 
i 
‘ 
i 
i 
i 
i 
i 
i 
i 
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025422 


025424 


025456 


025460 


025470 
025472 
025476 
025502 
025504 


025512 


025532 
025534 
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000004 
012706 
012737 
004737 


004037 
002470 
0004 


00 
125252 


004037 
003534 


000400 
125252 


004737 
104401 
000000 


013777 
013746 


011305 


104413 
002300 


041326 


041624 


041536 
066720 


004606 
002442 


000101 
154552 


MACY11 30A(1052) 
136 


004604 


154554 


TST36: 


27-JUL~78 : SEQ 0112 
WRITE/READ DA 2) 


SCOPE 

MOV AMSTACK , SP RESET STACK 

MOV 436 ,QATSTNM SAVE TEST NUMBER 

JSR PC ,@4CLDISK 7SET R1-RHCS1, R2-RHCS2 


:*NOW FILL WRITE FROM BUFFER = 256 OF 125252 


JSR RO, @4CLAREA CLEAR 256. wORDS, FROM WRFROM 
WRF ROM STARTING FROM WRFROM 


256. 3256. WORDS 

125252 sFILL WITH 125252 

:*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 

:*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 


JSR RO, @4CLAREA CLEAR 256. WORDS, FROM REINTO 
ee STARTING FROM REINTO 


. 3256. WORDS 
125252 sFILL WITH 125252 
;*NOW WRITE DATA COMMAND WILL BE LOADED 
- RO, @4RUN + SETUP TO - FOR DATA COMMAND 
0 
0 
-256. 
WRF ROM : 
0 :DO NOT INHIBIT BUS ADDRESS INCREMENT 
FMT 22 316 BITS PER WORD FORMAT 
WRIDAT :GET READY TO DO A WRIDAT 
:*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 
JSR RO, @#SAVER : SAVE REGISTERS 
WC ;RHWC IS THE FIRST REGISTER SAVED 
ZSTARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


PC ,a@ACHECKT CHECK DVA,RDY.MOL,DPR,DRY,VV = 1 
,CPHALT oo" CONTINUE TESTING IF ANY OF 


@ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


@AWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
AGO!IE, (SP) GET whe TO SET 'GO' AND 


(SP)+,@RHCS1 
aR1,RO ‘AVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


;*ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC 


WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 ;WAIT FOR RHCS1 REGISTER 


LALALALAL ALA ALA ALARA ALARA ALAA ALAA LALA ALAA ALAA PLALA ALAA UTA LAA nin 
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025652 
025654 
025660 


025670 


025672 
025674 


025676 


025710 
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025676 


104035 
000207 


000400 
025714 


041360 


041360 


041360 


042444 


043474 
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;WAIT FOR RDY oan IN RHCS1 REGISTER 
TALLOW 9080 ap SECONDS 


;RDY MUST SET BETWEEN 
@AWRIDAT,-(SP) ;SAVE COMMAND 
#IE'GO!DVA,(SP) INCLUDE IE!GO!DVA 
(SP) ,@#$GDDAT ;SAVE FOR PRINTOUT 
ete ; DURING ae ti tens ONLY IE!GO!DVA 


64 ;BRANCH IF 

RO, @#$BDDAT DATA 

R1,@4REGADR :FAILING REGISTER RHCS1 

21 ;DURING ABOVE OPERATION ONLY 

#MOL !DPR!VV,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 

SGDDAT ; SAVE FOR PRINTOUT 

:DURING ABOVE OPERATION ONLY MOL ! DPR! VV 
BRANCH IF GOOD 
BAD DATA 

R3.@#REGADR FAILING REGISTER RHDS1 

63 ;DURING ABOVE OPERATION ONLY 


:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, @4F ILLRE :MOV_O INTO SAVED RHWC 
a etry REGISTER TO CHANGE 


DATA 
JSR RO, @4F ILLRE sMOV_WRFROM+<256.*2> INTO SAVED RHBA 
RHBA SAVED REGISTER TO CHANGE 
WRF ROM+<256. *2> DATA 


JSR RO, @4F ILLRE ;MOV 1 INTO SAVED RHDST 
oer Periy REGISTER TO CHANGE 


:*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
2 *AFTER COMMAND 


JSR RO, @4#COMREG COMPARE SAVED REGISTERS WITH 
ERE :GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC* 
:18. REGISTERS TO BE COMPARED 
[RETURN TO 1$ ON ERROR 
RETURN TO 2$ ON NO ERROR 


ERROR 35 WRITE DATA COMMAND CAUSED 
RTS PC ; IMPROPER REGISTER CHANGE 
— DATA GIVES WHAT SHOULD 


SRECEIVED DATA GIVES WHAT WAS 
‘THERE AFTER COMMAND 


:*NOW WRITE FROM BUFFER WILL CHECKED FOR NO CHANGE 


JSR RO, @4#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
NTO :GOOD DATA STARTS FROM REINTO 
TEST DATA STARTS FROM WRFROM 
5256. WORDS TO . cee 
;RETURN TO 3$ ON ERROR 
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025712 


025714 
025716 


025720 


025746 


025750 


025770 


025772 
025776 
026000 


026002 
026004 


025720 


104036 
000207 


004037 
002470 


000400 
125252 


004037 
000000 
000 


000 
177400 
003534 


000000 
014000 


013777 
013746 


043430 


041536 
066720 


004606 


154240 
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4$ ;RETURN TO 4$ ON NO ERROR 


ERROR 36 ;WRITE DATA COMMAND CHANGED 
RTS PC ;WRITE FROM BUFFER 


;*NOW A READ DATA COMMAND WILL BE GIVEN 
7*FILL READ INTO BUFFER WITH 256 ZEROS 


JSR PC ,a@#CLDISK SET R1-RHCS1, R2-RHCS2 
JSR RO,@A#CLAREA CLEAR 256. WORDS, FROM REINTO 
BE INTO gh REINTO 


b . WOR 
sFILL WITH O 
s*FILL WRITE FROM BUFFER WITH 256 OF 125252 


JSR RO,@4#CLAREA CLEAR 256. WORDS, FROM WRFROM 
WRF ROM STARTING FROM WRF ROM 


256. 5256. WORDS 
125252 FILL WITH 125252 
;*NOW FILL COMMAND 


JSR RO, @4RUN ;SETUP TO RUN FOR DATA COMMAND 
0 ‘ertton 6 0 

0 CTOR 0 

0 ‘TRACK 0 

-256. z;WORD COUNT = 256. 

REINTO BUS ADDRESS 

0 :DO NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 ITS PER WORD FORMAT 


316 B 
READAT :GET READY TO DO A READAT 
*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


RO, @4SAVER 2 SAVE REGISTERS 
;RHWC IS THE FIRST REGISTER SAVED 
ZSTARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


PC ,@#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
,CPHALT : CANNOT CONTINUE TESTING IF ANY OF 


@ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


@AREADAT,-(SP) ;GET READY TO MOVE COMMAND 
' MGO!IE, (SP) GET READY TO SET ‘GO’ AND 
(SP)+,@RHCS1 :GO WITH 
@R1 RO SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 [SAVE RHDS1 DURING ABOVE OPERATION 


WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
:WAIT FOR RDY BIT IN RHCS1 REGISTER 
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ALLOW 9080 MICRO SECONDS 
:RDY MUST SET BETWEEN 
@AREADAT,-(SP) ;SAVE COMMAND 
MIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
(SP) ,a#$GDDAT SAVE FOR PRINTOUT 
(SP)+,RO [DURING ABOVE OPERATION ONLY IE!GO!DVA 
67$ BRANCH IF GOOD 
001126 RO, @4#SBDDAT BAD DATA 
004600 R1,@4#REGADR FAILING REGISTER RHCS1 
21 ;DURING ABOVE OPERATION ONLY 
010500 $ #MOL !DPR!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
001124 (SP) ,a#$GDDAT  ;SAVE FOR PRINTOUT 
(SP)+,R5 [DURING ABOVE OPERATION ONLY MOL !DPR! VV 
69$ BRANCH IF GOOD 
001126 R5 ,@ASBDDAT :BAD DATA 
004600 R3,@4#REGADR FAILING REGISTER RHDS1 
63 ;DURING ABOVE OPERATION ONLY 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @4F ILLRE :MOV_O INTO SAVED RHWC 
RHWC trtrig REGISTER TO CHANGE 


0 ;DATA 

JSR RO, a4F ILLRE sMOV REINTO+<256.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 

rt pias *2> ATA 


:DA 
RO, HF ILLRE ;MOV 1 INTO SAVED RHDST 
RvosT erty REGISTER TO CHANGE 


an 
Ne 
2» 


BBQ 


AAAAAAAVIUIVIVIUTUT 
ek ek kd dd ed es a ed 


and ad nd a ed oh oh od od 
WOONAUSWN—O 


;*COMPARE REGISTERS BEFORE READ DATA COMMAND 
:*WITH REGISTERS AFTER COMMAND 


042444 JSR RO, @4#COMREG COMPARE SAVED REGISTERS WITH 
004612 ERE ;GOOD DATA SAVED IN ‘SAVERE' 
002354 wC ; TEST DATA STARTING FROM ‘RHWC' 
000022 . 318. REGISTERS TO BE COMPARED 
026204 ;RETURN TO 5$ ON ERROR 
026202 026210 RETURN TO 6$ ON NO ERROR 


026204 104033 ; ERROR 33 READ DATA CAUSED IMPROPER 
026206 000207 RTS PC REGISTER CHANGE 
:GOOD DATA GIVES WHAT SHOULD BE THE 
RECEIVED DATA GIVES WHAT WAS THERE 
TER COMMAND 


:*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


026210 f 
004037 043474 RO, a4COMPAR ; COMPARE TWO BLOCKS OF ep 
002470 WRF ROM [GOOD DATA STARTS FROM WRF ROM 
003534 TEST DATA STARTS FROM REINTO 
000400 ‘ :2 WORDS TO BE COMPARED 
026226 :RETURN TO 7$ ON ERROR 

026224 026232 [RETURN TO 10$ ON NO ERROR 


WONG LU TCC IU Oe eee eee ee eee ele ewe le lele le lee lee eel ele leleulealealealealealeal eal ealealeal eal ealeal al lea 
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5152 026226 104034 7$: ERROR 34 ; INCORRECT DATA AFTER 
5153 026230 000207 RTS PC ;WRITE DATA FOLLOWED BY A 
5154 sREAD DATA 
5155 026232 10$: 
5156 


Wee Te Te Te Te Te Te Te Te Te Te Te Te ee Le Te Te Lee Te Lee Lee re Le ee ee rele teal el eal esl eal eal eal ald abs l al ees dl al a he 
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026232 000004 TST37: SCOPE 
026234 MOV STACK , SP 7RESET pe 
MOV 437 ,QATSTNM ;SAVE TEST NUMBER 
JSR PC ,@#CLDISK [SET R1-RHCS1, R2-RHCS2 


7*NOW FILL WRITE FROM BUFFER-200 OF 52525 AND 56 OF 377 


JSR RO,@ACLAREA CLEAR 200. WORDS, FROM WRFROM 
WRF ROM z STARTING FROM WRF ROM 


WORDS 
2525 sFILL WITH 52525 
JSR RO, @4CLAREA : CLEAR mn eran FROM WRF ROM+<200.*2> 
ur RaM+<200. *2> ARTING FROM WRFROM+<200. *2> 


00007’ 356. words. 
026274 377 sFILL WITH 377 


;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
:*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 


026276 041326 JSR RO,@4CLAREA CLEAR 200. WORDS, FROM REINTO 
026302 RE INTO oe ce _— RE INTO 
00. 200. 
on sFILL WITH 52525 
041326 RO, @ACI AREA CLEAR 56. WORDS, FROM REINTO+<200. *2> 
RE INTO*<206. *2> STARTING FROM REINTO+<200. *2> 


w 356. WORDS 
026320 377 FILL WITH 377 
>*NOW WRITE DATA COMMAND WILL BE LOADED 


026322 043430 JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
000000 0 CYLINDER 0 
0 SECTOR 0 
0 STRACK 0 
-200. WORD COUNT = 200. 
WRF ROM [BUS ADDRESS 
0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 
WRIDAT :GET READY TO DO A WRIDAT 


;*NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA 


RO, @#SAVER SAVE REGISTERS 
:RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 
026354 000022 18. [NUMBER OF REGISTERS 


026356 041536 PC ,@ACHECKT CHECK DVA,RDY,MOL ,DPR,DRY,V 
026362 066720 ,CPHALT ZCANNOT CONTINUE TESTING IF 
026366 000000 ; oP 


026370 013777 004606 153670 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


026376 013746 002442 @AWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
026402 052716 000101 #GO!IE, (SP) GET READY TO SET ‘GO' AND 


5 
5 
5 
5 
5 
5 
5: 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
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eceres 012677 153666 (SP)+,@RHCS1 :GO WITH 
2 011100 aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
011305 aR3.R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


7*ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC 


z;WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
WAIT FOR RDY BIT IN RHCS1 REGISTER 
zALLOW 9080 MICRO SECONDS 
poo zRDY MUST SET BETWEEN 


@AWRIDA 7 SAVE COMMAND 

Pie GO'DVA, a INCLUDE IE!GO!DVA 

(SP) ,a#SGDDAT  :SAVE FOR PRINTOUT 

(SP)+, -RO [DURING ABOVE OPERATION ONLY IE!GO!DVA 


64 {BRANCH MY 

RO, a#S$BDDAT ;BAD DAT. 

R1,@#REGADR FAILING REGISTER RHCS1 

21 ;DURING ABOVE OPERATION ONLY 

MMOL ! DPR! VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
(SP). @#$GDDAT SAVE FOR PRINTOUT 

(SP)+,R5 :DURING ABOVE OPERATION ONLY MOL !DPR! VV 

66$ ae tae IY GOOD 

RS, @#SADDAT 


:BAD DAT. 
R3,@4#REGADR {FAILING REGISTER RHDS1 
63 [DURING ABOVE OPERATION ONLY 


z*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, @4F ILLRE MOV 0 INTO SAVED RHWC 
RHWC — REGISTER TO CHANGE 


0 ;DATA 
JSR RO, @4F ILLRE ;MOV WRFROM+<200.*2> INTO SAVED RHBA 
R HANGE 


HBA ;SAVED REGISTER TO C 
WRF ROM+<200. *2> 


sDATA 
JSR RO, @4F ILLRE ;MOV_1 INTO SAVED RHDST 
vor et ig REGISTER TO CHANGE 


7*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
7 *AFTER COMMAND 


004037 JSR RO, @#COMREG + COMPARE SAVED REGISTERS WITH 
004612 ERE ERE* 


002354 
000022 , 18, REGISTERS TO BE COMPARED 
026556 RETURN TO 1$ ON ERROR 


026562 RETURN TO 2$ ON NO ERROR 


026556 104035 : ERROR 35 WRITE DATA COMMAND CAUSED 
026560 000207 RTS PC ; IMPROPER REGISTER CHANGE 
; GOOD DATA GIVES WHAT SHOULD 


:RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 
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7*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 


RO, @#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM REINTO 
TEST DATA STARTS FROM WRFROM 
32 WORDS TO BE COMPARED 
026600 [RETURN TO 3$ ON ERROR 
026576 RETURN TO 4$ ON NO ERROR 


026600 : WRITE DATA COMMAND CHANGED 
026602 ;WRITE FROM BUFFER 


;*NOW A READ DATA COMMAND WILL BE GIVEN 
7*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF ALL ONES 


PC ,@#CLDISK SET R1-RHCS1, R2-RHCS2 
RO, @#CLAREA ZCLEAR 200. WORDS, FROM REINTO 
7STARTING FROM REINTO 


3200. WORDS 

sFILL WITH O 
JSR RO, @4#CLAREA CLEAR 56. WORDS, FROM REINTO+<200.*2> 
RE INTO+<206. -*2> ;STARTING FROM REINTO+<200. *2> 


356. WORDS 
377 sFILL WITH 377 
7*FILL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF 0 


JSR RO,@4#CLAREA CLEAR 200. WORDS, FROM WRFROM 
WRF ROM ; STARTING ~— WRF ROM 


200. 0. WORDS 

52525 “FILL WITH 52525 

JSR RO, @#CLAREA CLEAR 56. WORDS, FROM WRFROM+<200.*2> 
RF ROM*<200. -*2> ;STARTING FROM WRFROM+<200. *2> 


756. WORDS 
377 FILL WITH 377 
7*NOW FILL COMMAND 


JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 

0 CYLINDER 0 

SECTOR 0 

: TRACK 0 

z;WORD COUNT = 200. 

;BUS ADDRESS. 

;D0 NOT INHIBIT BUS gen INCREMENT 
TS PER WORD FORMAT 


316 BI 
;GET READY TO DO A READAT 
z*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
026702 041624 bet RO, @#SAVER oe: REGISTERS 


026706 HWC HWC IS THE FIRST REGISTER SAVED 
026710 SAVERE + STARTING ADDRESS OF WHERE 


0 
ECI!FMT22 
READAT 
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026712 000022 ' NUMBER OF REGISTERS 


004737 PC ,@#CHECKT CHECK DVA,RDY,MOL ,DPR,DRY,V 
104401 ~CPHALT [CANNOT CONTINUE TESTING IF 
000000 TOP 


013777 153332 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 eeprie cs -(SP) ;GET READY TO MOVE COMMAND 
) 2GET - TO SET °GO" AND 


WITH 
SAVE RHCS1 DURING ABOVE OPERATION 
7SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR RDY BIT TO SET 
SWAIT FOR RHCS1 REGISTER 
[WAIT FOR RDY BIT IN RHCS1 REGISTER 
ZALLOW 9080 MICRO SECONDS 
z;RDY MUST SET BETWEEN 
@AREADAT ,~ (SP) C 


[SAVE COMMAND 
MIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
DAT SAVE FOR PRINTOUT 
; DURING (rs OPERATION ONLY IE!GO!DVA 


;BAD DATA 
FAILING REGISTER RHCS1 
:DURING ABOVE OPERATION ONL 
SAVE BITS SET DURING OPERATION IN RHDS1 
;SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY MOL !DPR! VV 
;BRANCH IF GOOD 


BAD DATA 
FAILING REGISTER RHDS1 
;DURING ABOVE OPERATION ONLY 


3 *CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @4F ILLRE z;MOV 0 INTO SAVED RHWC 
RHWC SAVED REGISTER TO CHANGE 


0 zDATA 

JSR RO, @4F ILLRE sMOV_REINTO+<200.*2> INTO SAVED RHBA 
RHBA ; SAVED REGISTER TO CHANGE 

RE INTO+<200. *2> TA 


JSR RO, @4F ILLRE :MOV 1 INTO SAVED RHDST 
RHDST ;SAVED REGISTER TO CHANGE 
027074 00000 1 zDATA 


7 *COMPARE REGISTERS BEFORE READ DATA COMMAND 
z*WITH REGISTERS AFTER COMMAND 


027076 JSR RO, a@#COMREG COMPARE SAVED REGISTERS WITH 
VER GOOD DATA SAVED IN ‘SAVERE’ 
TEST DATA STARTING FROM ‘RHWC" 
:18. REGISTERS TO BE COMPARED 
;RETURN TO 5$ ON ERROR 
027112 027120 RETURN TO 6$ ON NO ERROR 
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027114 104033 
027116 000207 


027142 


104034 
027140 000207 


027142 


MACY11 30A(1052) 
137 


5$: 


E 10 
27-JUL-78 13:06 PAGE 122 
WRITE/READ DATA (052525) 


ERROR 33 READ DATA CAUSED IMPROPER 
RTS PC SREGISTER CHANGE 

GOOD DATA GIVES WHAT SHOULD BE THE 
:RECE IVED DATA GIVES WHAT WAS ThERE 
FTER COMMAND 


;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


JSR RO,@#COMPAR COMPARE TWO BLOCKS OF MEMORY 

WRF ROM [GOOD DATA STARTS FROM WRF ROM 

REINTO TEST DATA STARTS FROM REINTO 

256. 7256. WORDS TO BE COMPARED 
SRETURN TO 7$ ON ERROR 

10$ RETURN TO 10$ ON NO ERROR 


ERROR 34 ; INCORRECT DATA AFTER 
RTS PC WRITE DATA FOLLOWED BY A 
READ DATA 
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5406 
5407 
5408 

09 


e¥ 
oO 


AEELELELY 
OWNAULSW— 


027142 
000001 001212 
001000 


000040 004604 
041456 
004750 
030312 
004732 
041326 


041326 


027254 


027256 


152772 


041624 


027316 


TST 


40: 


WRITE/READ DATA USING UNIBUS B 


#1, STINES 3:D0 1 ITERATION 

#STACK,SP 

#40, a4TSTNM : EST NUMBER 

PC ,a#CLDISK :SET R1-RHCS1, R2=-RHCS2 

a#RH70 TEST FOR RH70 CONTROLLER 

30$ TIF FLAG = 1, THIS TEST IS SKIPPED 
S141; SUMP TO NEXT TEST --------------------) 


@4UBUSB CLEAR UNIBUS INDICATOR 
7*NOW FILL WRITE FROM BUFFER-200 OF 52525 AND 56 OF 377 


JSR RO, @#CLAREA CLEAR 200. WORDS, FROM WRFROM 
WRF ROM STARTING FROM WRF ROM 


200. 7200. WORDS 

52525 zFILL WITH ‘52525 

JSR RO, @#CLAREA CLEAR 56. WORDS, FROM WRFROM+<200.*2> 
WRF ROM*<200. *2> ;STARTING FROM WRFROM+<200. *2> 
56. 356. WORDS 

377 sFILL WITH 377 

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
7*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 

7*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 


JSR RO, @4CLAREA AR 200. WORDS, — RE INTO 
RE INTO ‘STARTING FROM REINT 


00. 7200. WORDS 

52525 nab WITH 52525 

JSR RO,@#CLAREA AR 56. WORDS, FROM REINTO+<200.*2> 
RE INTO+<200. *2> ;STARTING FROM REINTO+<200. *2> 
56. 356. WORDS 

377 sFILL WITH 377 

7*NOW WRITE DATA COMMAND WILL BE LOADED 

i. RO, @#RUN 4+ Ag TO we FOR DATA COMMAND 

0 

0 
-200. 
 pheee 


ADDR ESS. 
DO NOT INHIBIT we ADDRESS INCREMENT 
FMT 22 316 BITS PER WORD FORMAT 
WRIDAT :GET READY TO DO A WRIDAT 
BIS #PSEL ,@RHCS1 [SET PORT B 

THAT IS UNIBUS B 


z*NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA 


JSR RO, SAVER a REGISTERS 

RHWC HWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 

18. [NUMBER OF REGISTERS 


SEQ 0122 
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004737 
104401 
000000 


MACY11 30A(1052) 
140 


013777 152726 


027450 


7 * CHECK 


*IF SET IT MEANS 


G 10 
27-JUL-78 13:06 PAGE 124 
WRITE/READ DATA USING UNIBUS B 


PC ,@4CHECKT 
PHAL * 


: CHECK DVA,RDY,.MOL ,DPR,DRY,VV = 1 
SCANNOT CONTINUE TESTING IF ANY OF 


@ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 
@AWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 

#GO! IE! PSEL, (SP) GET READY TO SET "GO" AND 
(SP)+,@RHCS1 :G0 WITH” 

aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


3*ONE REVOLUTIu»=16670 MICROSEC, ONE SECTOR=760 MICROSEC 


;WAIT FOR RDY BIT TO SET 
;WAIT FOR RHCS1 REGISTER 
WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW bs ae MICRO SECONDS 


Y MUST SET BETWEEN 
@AWRIDAT,-(SP) ;SAVE COMMAND 
#1E!G0!DVA:PSEL. (SP) INCLUDE IE!GO!DVA!PSEL 
(SP) ,@#SGDDAT ;SAVE FOR PRINTOUT 
(Sp), -RO ; DURING if 6000 ONLY IE!GO!DVA!PSEL 


BRANCH IF 
RO, a@#$BDDAT :BAD DAT. 
R1,@4REGADR FAILING AREGISTER RHCS1 
21 [DURING ABOVE OPERATION ONL 
#MOL !DPR!IVV, (SP) SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,@#$GDDAT  ;SAVE FOR PRINTOUT 
(SP)+,R5 DURING ABOVE OPERATION ONLY MOL ! DPR! VV 
66$ BRANCH IF GOOD 
R5 ,@#$BDDAT 


:BAD DATA 
R3,@#REGADR FAILING REGISTER RHDS1 
63 ;DURING ABOVE OPERATION ONLY 


IF NEM NON EXISTANT MEMORY IS SET 
UNIBUS B IS NOT CONNECTED 


3*SO THIS TEST IS NOT PERFORMED 


027452 032777 004000 152616 


177777 += 004732 
027476 


030312 
027572 


001223 
001223 


027652 041360 


TEST NEM 

BRANCH IF UNIBUS B THERE 
: UNIBUS B NOT THERE 

TYPE ASCIZ STRING 
SIGET OVER THE ASCIZ 


#NEM, @RHCS2 
11$ 


; JUMP TO NEXT TEST - NO UNIBUS B 


zz: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


*$CRLF 
3*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
JSR RO, @4F ILLRE :MOV 0 INTO SAVED RHWC 


SEQ 0123 
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002272 RHWC Jetty REGISTER TO CHANGE 


000000 0 
004037 041360 JSR RO, a4F ILLRE ‘MOV WRFROM+<200.*2> INTO SAVED RHBA 
002274 RHBA SAVED REGISTER TO CHANGE 

WRF ROM+<200. *2> 


003310 ;DATA 
004037 041360 JSR RO, @4F ILLRE ;MOV 1 INTO SAVED RHDST 
002304 yess Sots REGISTER TO CHANGE 


:*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
;*AFTER COMMAND 


004037 042444 RO, @#COMREG COMPARE SAVED REGISTERS WITH 
004612 ERE :GOOD DATA SAVED IN ‘SAVERE' 
002354 TEST DATA STARTING FROM ‘RHWC* 
000022 ° 318. REGISTERS TO BE COMPARED 
027720 ;RETURN TO 1$ ON ERROR 

027716 027724 ;RETURN TO 2$ ON NO ERROR 


027720 104074 : WHILE USING UNIBUS B 
WRITE DATA COMMAND CAUSED 
027722 000207 : IMPROPER REGISTER CHANGE 
— DATA GIVES WHAT SHOULD 


[RECEIVED DATA GIVES WHAT WAS 
[THERE AFTER COMMAND 


:*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 


027724 : 
RO, @#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
:GOOD DATA STARTS FROM REINTO 
: TEST DATA STARTS FROM WRFROM 


ON 
027740 027746 [RETURN TO 4$ ON NO ERROR 


027742 104075 : ;WHILE USING UNIBUS B 
z:WRITE DATA COMMAND CHANGED 
027744 000207 ;WRITE FROM BUFFER 


:*NOW A READ DATA COMMAND WILL BE GIVEN 
:*FILL READ INTO BUFFER WITH 500° ZEROS AND 56 OF ALL ONES 


027746 : 

041456 PC,@4CLDISK 7 SET pga ay ee 

041326 RO, @4CLAREA CLEAR 200. S, FROM REINTO 
STARTING FROM REIN TO 


_* FILL WITH 0 
041326 RO, @#CLAREA CLEAR 56. WORDS, FROM REINTO+<200.*2> 
Re INTO*<200. *2> STARTING FROM REINTO+<200. *2> 
00007 56. 356. WORDS 
027774 377 sFILL WITH 377 
:*FILL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF 0 
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027776 041326 
30002 


041326 


002446 


052777 152226 


152162 


152160 


004600 
104021 
030170 012746 010500 


I 10 
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27-JUL-78 


WRITE/READ DATA USING UNIBUS B 


JSR 
WRF ROM 
200. 
52525 
JSR RO, @#CLAREA 
WRF ROM+<200. *2> 

56. 

377 

3 *NOW FILL COMMAND 


= RO, @#RUN 


RO, @4CLAREA 


0 

0 

-200. 
hana 
ECI!FMT22 


READAT 
BIS #PSEL ,@RHCS1 


;CLEAR 200. WORDS, FROM WRFROM 

TSTARTING FROM WRF ROM 

7200. WORDS 

CLEA WITH 52525 

CLEAR 56. WORDS, FROM WRFROM+<200. *2> 
;STARTING FROM WRFROM+<200. *2> 


756. WORDS 
sFILL WITH 377 


:CYLIN oN FOR DATA COMMAND 


Ss 

:D0 NOT ery BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 

;GET READY TO DO A READAT 

SET PORT 


B 
;THAT IS UNIBUS B 


z*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


JSR 
RHWC 
SAVERE 
18 


RO, @#SAVER 


PC ,@#CHECKT 
~CPHALT 


@ARP4VEC ,A@RPVEC 
@4READAT ,~ (SP) 
#GO!IE!PSEL, (SP) 


WW 
SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


(SP)+,@RHCS1 
aR1,RO 
@R3,R5 


@4READAT ,~( SP) 
#IE!GO!DVA!PSEL, 
(SP) , @#$SGDDAT 


(SP)+,RO 
71$ 

RO, a@#$BDDAT 
R1,@4REGADR 


#MOL ! DPR! VV, ~(SP3 


;CHECK DVA,RDY,MOL ,DPR,DRY,VV 
oo CONTINUE TESTING IF 


ee REGISTERS 

HWC IS THE FIRST REGISTER SAVED 
:OTARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


vV=1 
ANY OF 


SET RPO4 VECTOR ADDRESS 
:GET aes MOVE COMMAND 


T READY TO SET ‘GO’ AND 


;WAIT FOR RDY a TO SET 
[WAIT FOR +3 EGISTER 
SWAIT FOR RDY BIT IN RHCS1 REGISTER 


TALLOW 9080 MICRO SECONDS 
sRDY MUST SET BETWEEN 
SAVE COMMAND 

(SP) 
SAVE FOR PRINTOUT 

;DURING ABOVE OPERATION ONLY IE!GO!DVA!PSEL 
;BRANCH IF GOOD 


INCLUDE IE!GO!DVA!PSEL 


BAD DATA 
FAILING REGISTER RHCS1 
URING ABOVE OPERATION ONLY 
;SAVE BITS SET DURING OPERATION IN RHDS1 
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011637 001124 (SP) ,@#$GDDAT  ;SAVE FOR PRINTOUT 
022605 sae) * hts DURING tO cial te ONLY MOL ! DPR! VV 


001405 BRANCH IF 
010537 001126 RS ,@#$BDDAT ; DATA 
004600 R3,@4REGADR [FAILING REGISTER RHDS1 
63 [DURING ABOVE OPERATION ONLY 


z*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @4F ILLRE MOV 0 INTO SAVED RHWC 
RHWC arty REGISTER TO CHANGE 


0 DATA 

JSR RO, @4F ILLRE 3MOV_REINTO+<200.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 

raat -*2> 


;DATA 
RO, a@4F ILLRE :MOV 1 INTO SAVED RHDST 
ina tory REGISTER TO CHANGE 


. 
° 


> *COMPARE REGISTERS BEFORE READ DATA COMMAND 
;*WITH REGISTERS AFTER COMMAND 


942444 JSR RO, @#COMREG sCOMPARE SAVED REGISTERS WITH 
VERE :GOOD DATA SAVED IN 'SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
:18. REGISTERS TO BE COMPARED 
030264 ;RETURN TO 5$ ON ERROR 
030270 RETURN TO 6$ ON NO ERROR 


104072 3 ;WHILE USING UNIBUS B 
READ DATA CAUSED IMPROPER 

000207 REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD BE THE 
RECEIVED DATA GIVES WHAT WAS THERE 
AFTER COMMAND 


3*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


043474 RO, a#COMPAR COMPARE TWO BLOCKS OF MEMORY 
WRF ROM ;GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 

7256. WORDS TO . COMPARED 


030306 [RETURN TO 7$ ON ERROR 
030312 RETURN TO 10s. 0 GN NO ERROR 


104073 : WHILE USING UNIBUS B 
; INCORRECT DATA AFTER 
000207 ;WRITE DATA FOLLOWED BY A 
READ DATA 
030312 
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an 
~NnN 
Se ie) 


000004 TST41: SCOPE 

012706 STACK , SP RESET STACK 

012737 000041 #41 ,QATSTNM SAVE TEST NUMBER 
004737 PC ,@4CLDISK 3SET R1-RHCS1, R2-RHCS2 


ede WRITE FROM BUFFER WITH HEADER 
004037 JSR RO, @4F LHEAD ;SAVE HEADER DATA IN WRFROM 
002470 WRF ROM LOCATION WHERE SAVED 
000004 4 R OF WORDS SAVED 

sc D 


0 
0 FOURTH DATA WORD 
*FILL WRITE FROM BUFFER WITH DATA 
JSR RO,@#CLAREA CLEAR 256. WORDS, FROM WRFROM+10 
WRF ROM+10 STARTING FROM WRFROM+10 
256. 3256. WORDS 

sFILL WITH O 


*FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 
041302 JSR RO, @4F LHEAD SAVE HEADER DATA IN WRFROM+<260. *2> 
URFROM+<360. #25 ;LOCA BL A 4 ng SAVED 


4 
; 0000 


0 
0 FOURTH DATA WORD 


z*FILL WRITE Ayn BUFFER WITH NEXT SECTOR DATA 
041326 JSR RO,@#CLAREA sCLEAR 2 pty FROM WRFROM+<264, *2> 
ur Rome<26s2> : STAR TING FROM WRFROM+<264. *2> 


32 WORDS” 
1 FILL WITH 1 
7*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 
7*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 


3*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT 
*CHANGE WRITE FROM BUFFER. 


JSR RO, @4F LHEAD SAVE HEADER eB IN REINTO 
RE INTO ;LOCATION WHERE SAVED 

& ER OF WORDS SAVED 
prove 


0 
0 Crea DATA WORD 
JSR RO, @4CLAREA AR 256. WORDS, FROM REINTO+10 
RE INTO+10 STARTING FROM REINTO+10 
256. 3256. woRDs 
sFILL WITH O 
JSR RO, @4FLHEAD 7SAVE HEADER DATA IN REINTO+<260. *2> 
RE INTO+<266. *2> ;LOCATION WHERE SAVED 
;NUMBER OF WORDS SAVED 
40000 FIRST DATA WORD 


Bl i Nc el a a a er i a i eee ee ieee i ee a a, A i a. a, i ee, a i i, i, a i a a a, a, i a 
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SECOND DATA WORD 

;THIRD DATA WORD 

FOURTH DATA WORD 
JSR RO, @#CLAREA CLEAR 2 WORDS, FROM REINTO+<264.*2> 
REINTO*<264, -*2> s' ;STARTING FROM REINTO+<264. *2> 


32 WORD 
1 sFILL WITH 1 
;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


JSR RO, @4RUN ;SETUP TO RUN FOR DATA COMMAND 

0 sCYLINDER 0 

0 sSECTOR O 

0 s TRACK O 

-262.-4 :WORD COUNT (DATA) = 262. 

WRF ROM ;BUS ADDRESS 

0 :DO NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 

WRIFOR GET READY TO DO A WRIFOR 


z*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DAT1 
041624 RO, @#SAVER SAVE REGISTERS 
SRHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 
SNUMBER OF REGISTERS 


Ty sheet ;CHECK DVA,RDY,MOL ,DPR,DRY,VV 


= 1 
HALT — CONTINUE TESTING IF ANY OF 


013777 151510 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
GET READY TO SET ‘GO’ AND 
GO WITH 
SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


;*ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 


z;WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

WAIT FOR RDY BIT IN RHCS1 REGISTER 
:ALLOW 10250 MICRO SECONDS 


T SET BETWEEN 
@AWRIFOR,-(SP) ;SAVE COMMAND 
#IE'GO!DVA, (SP) :INCLUDE IE!GO!DVA 
(SP) ,@#$GDDAT ;SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY IE!GO!DVA 
arog ee y GOOD 


BAD D 
R1,@#REGADR FAILING. REGISTER RHCS1 
21 ;DURING ABOVE OPERATION ONLY 
#MOL !DPR!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,a#$GDDAT  ;SAVE FOR PRINTOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL !DPR! VV 


aeee eee eee eee ee eo eo Oe A A A AO OO OO OCDE EO FD SF SRD SR AR FS FRR FR ef PS SS PRS FS FPR SR 
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ao 
™N 
Dw 


;BRANCH IF GOOD 


:BAD DATA 
FAILING REGISTER RHDS1 
ERROR 3 [DURING ABOVE OPERATION ONLY 


z*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, a#F ILLRE :MOV 0 INTO SAVED RHWwC 

RHC : SAVED REGISTER TO CHANGE 

JSR RO, a#F ILLRE [MOV WRFROM+<266.*2> INTO SAVED RHBA 
RHBA ‘SAVED REGISTER TO CHANGE 

WRF ROM+<266. *2> ATA 


7D 
JSR RO, a@4F ILLRE :MOV 2 INTO SAVED RHDST 
— Poe REGISTER TO CHANGE 


001126 
004600 


3 *NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
*WITH REGISTERS AFTER COMMAND 


JSR RO, @#COMREG s COMPARE SAVED REGISTERS WITH 
ERE [GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC’ 
718. REGISTERS TO BE COMPARED 
030736 [RETURN TO 1$ ON ERROR 
030742 ;RETURN TO 2$ ON NO ERROR 


104027 : ERROR 27 WRITE HEADER AND DATA 
000207 RTS PC ;CAUSED IMPROPER REGISTER 


> CHANGE 
:600D ol GIVES WHAT SHOULD 


e 7 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMANT 


7*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
;*NOTHING GOT CHANGED 


RO, a@#COMPAR COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM REINTO 
TEST DATA STARTS FROM WRFROM 
3266. ‘ARED 


ON 
RETURN TO 4$ ON NO ERROR 


104030 : ERROR 30 ;WRITE HEADER AND DATA 
000207 RTS PC CHANGED WRITE FROM BUFFER 


;*NOW A READ a 4 sn COMMAND WILL BE GIVEN 
:*FOR SECTOR 1, 256 W 
:*READ INTO BUFFER 1s OF ILLED WITH ONES 


004737 041456 PC ,a#CLDISK :SET R1-RHCS1, R2-RHCS2 
004037 041326 RO.@4#CLAREA “CLEAR 260. WORDS, FROM REINTO 
003534 RE INTO ‘STARTING FROM REINTO 


ee ri ee eee ae eee ee hee ee OO ff ff ff fh fr ff FR PR fF FA LF Fa FA fA FAP PFA PAPA FA FAP MLA MM CR CR ORO 
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030776 000404 
031000 000377 


031066 
031070 
031072 

031074 041536 

066720 

013777 004606 

013746 002450 

000101 
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260. 3260. WORDS 
377 sFILL WITH 377 


;*WRITE FROM BUFFER IS FILLED WITH EXPECTED DATA 


JSR RO, @4F LHEAD SAVE HEADER DATA IN WRFROM 
WRF ROM ZLOCATION WHERE SAVED 
[NUMBER OF 


6 
0000 


1 SIXTH DATA WORD 
JSR RO, @#CLAREA CLEAR 254 WORDS, FROM WRFROM+<6. *2> 
WRFROM+<6. «2> STARTING FROM WRFROM+<6. *2> 
254 3254 WORDS 

FILL WITH O 


7 *NOW FILL COMMAND 


JSR RO, @4#RUN ; SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
5 oe 1 


K 0 
-256.-4 ‘WORD COUNT (DATA) = 256. + 
RE INTO BUS ADDRESS 

;DO NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
REFOR :GET READY TO DO A REFOR 


z*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 


JSR RO, @#SAVER : SAVE REGISTERS 

RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 

18. [NUMBER OF REGISTERS 


PC ,@4CHECKT CHECK DVA,RDY.MOL ,DPR,DRY,VV = 1 
-CPHALT : CANNOT CONTINUE TESTING IF ANY OF 


@ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


@AREFOR,-(SP) ;GET READY TO MOVE COMMAND 
#GO! IE, (SP) GET READY TO SET ‘GO’ AND 


(SP)+,@RHCS1 360 WITH 
aR1,RO 7SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


7*ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR 760 MICRO SECONDS 


WAT WAIT FOR RDY BIT TO SET 

RHCS1 WAIT FOR pte REGISTER 

RDY [WAIT FOR RDY BIT IN RHCS1 REGISTER 
908. ALLOW 9080 MICRO SECONDS 
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zRDY MUST SET BETWEEN 
@AREFOR,-(SP) ;SAVE COMMAND 
#IE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
SAVE FOR PRINTOUT 
[DURING ABOVE OPERATION ONLY IE!GO!DVA 
;BRANCH IF GOOD 


| 


DATA 
[FAILING REGISTER RHCS1 
[DURING ABOVE OPERATION ONL 
;SAVE BITS SET DURING OPERATION IN RHDS1 
SAVE FOR PRINTOUT 
DURING ABOVE OPERATION ONLY MOL !DPR! VV 
;BRANCH IF GOOD 


;BAD DATA 
sFAILING REGISTER RHDS1 
:DURING ABOVE OPERATION ONLY 


7*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @4F ILLRE z;MOV 0 INTO SAVED RHWC 
RHWC — REGISTER TO CHANGE 


0 DATA 

JSR RO, a4F ILLRE [MOV REINTO+<260.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 

a tea -*2> ;DATA 


RO, a4F ILLRE :MOV 2 INTO SAVED RHDST 
RHDST i SAVED REGISTER TO CHANGE 


:*COMPARE REGISTERS BEFORE READ HEADER AND DATA 
z*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG ; COMPARE SAVED REGISTERS WITH 
AVER GOOD DATA SAVED IN ‘SAVERE* 
TEST DATA STARTING FROM ‘RHWC' 
:18. REGISTERS TO BE COMPARED 
;RETURN TO 5$ ON ERROR 
:RETURN TO 6$ ON NO ERROR 


ERROR 31 ;READ HEADER AND DATA CAUSED 
RTS PC ; IMPROPER REGISTER CHANGE 
:GOOD DATA GIVES WHAT SHOULD 


;BE THERE 
sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


7*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
;*THAT READ WAS GOOD 


JSR RO, @#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRF ROM [GOOD DATA STARTS FROM WRFROM 
RE INTO TEST DATA STARTS FROM REINTO 
260. 7260. WORDS TO BE COMPARED 

$ ;RETURN TO 7$ ON ERROR 


SEQ 0132 
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IMPLIED SEARCH 
10$ 


ERROR 
RTS 


;RETURN TO 10$ ON NO ERROR 


WRITE HEADER AND DATA 
;FOLLOWED BY A READ HEADER 
;AND DATA GAVE A READ ERROR 
ERROR MAY BE IN READ OR WRITE 


SEQ 0133 
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STACK, SP RESET STACK 
#42 ,@ATSTNM SAVE TEST NUMBER 
PC,@4CLDISK SET R1-RHCS1, R2-RHCS2 


7*FILL WRITE FROM BUFFER WITH HEADER 

JSR RO, @4F LHEAD : SAV VE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 

& R OF WORDS SAVED 
10000 iFIRST DATA WORD 
<18.*400>!<21.> 3; SECOND DATA WORD 

0 ;THIRD DATA WORD 
0 [FOURTH DATA WORD 


s*FILL WRITE FROM BUFFER WITH DATA 

JSR RO, @#CLAREA sCLEAR 256. etree’ FROM WRFROM+10 
aa £256 wis TING FROM WRFROM+10 
<18.*40>!21. : ae 5 WITH <18.*40>!21. 


s*FILL WRITE aye BUFFER WITH NEXT TRACK HEADER 
JSR RO, @4F LHEAD 7; SAVE HEADER DATA IN oe ee 
WRF ROM+<260. wet SAVE 


4 
10001 
0 

0 FOURTH DATA WORD 
bas WRITE Ay BUFFER WITH NEXT TRACK DATA 
JSR 


RO,@#CLAREA CLEAR 2 WORDS, FROM WRFROM+<264.*2> 
WRFROM*<264. et ZSTARTING FROM WRFROM+<264. *2> 


32 WORDS” 
2000 sFILL WITH 2000 


z*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 
:*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
7*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT 

:*CHANGE WRITE FROM BUFFER. 


JSR RO, @4FLHEAD ; SAVE HEADER og Be IN REINTO 
REINTO *LOCATION WHERE SAVED 
4 ‘NUMBER OF WORDS SAVED 
FIRST DATA WORD 

;SECOND DATA WORD 
B papa DATA WORD 
:FOURTH DATA WORD 
JSR RO,@4CLAREA LEAR 256. WORDS, FROM REINTO+10 
RE INTO+10 £256 wag FROM REINTO+10 
<18.*40>!21. FILL WITH <18.*40>!21. 
JSR RO, @4F LHEAD SAVE HEADER DATA IN RE INTO+<260. *2> 
RE INTO+<260- *2> sLOCATION WHERE SAVED 
4 ; NUMBER OF WORDS SAVED 
10001 zFIRST DATA WORD 


10000 
aad iinet a 


SEQ 0134 
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SECOND DATA WORD 
THIRD DATA WORD 
[FOURTH DATA WORD 
RO, @#CLAREA CLEAR 2 WORDS, FROM REINTO+<264.*2> 


JSR 
RE INTO*<264, -*2> STAR TING FROM REINTO+<264. *2> 


2000 


72 WORDS” 
sFILL WITH 2000 


;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 0 
SECTOR 21. 
;TRACK 18. 
[WORD COUNT (DATA) = 262. 
BUS ADDRESS 
;DO0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
ZGET READY TO DO A WRIFOR 


7*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATAI 


RO, @#SAVER ae REGISTERS 
C IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


PC ,@A#CHECKT CHECK DVA,RDY.MOL ,DPR,DRY,VV = 1 
~CPHALT oo CONTINUE TESTING IF ANY OF 


@ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


@AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 

#GO!IE, (SP) ;GET READY TO SET ‘GO’ AND 

(SP) +,@RHCS1 :GO WITH 

aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


7*ONE REVOLUTION = 16670 MICRO1 SEC, ONE SECTOR = 760 MICRO1 SEC 


z;WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 16950 MICRO SECONDS 
;RDY MUST SET BETWEEN 
@AWRIFOR ,~(SP) 


SAVE COMMAND 
MIE'GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
(SP) ,a#$GDDAT  :SAVE FOR PRINTOUT 
+ ae ; DURING gt tcmetl ONLY IE!GO!DVA 


6 BRANCH IF 

RO, a#$BDDAT BAD DATA 

R1,@4REGADR FAILING REGISTER RHCS1 

21 :DURING ABOVE OPERATION ONLY 

#MOL ! DPR! VV,~-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,a#$GDDAT ; SAVE FOR PRINTOUT 


SEQ 0135 
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CMP (SP)+,R5 DURING ABOVE OPERATION ONLY MOL ! DPR! VV 
BEQ 66$ BRANCH IF GOOD 

MOV R5 ,@#$BDDAT :BAD DATA 

MOV R3,@#REGADR ;FAILING REGISTER RHDS1 


ERROR 63 ‘DURING ABOVE OPERATION ONLY 
:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 

JSR RO, a#F ILLRE sMOV 0 INTO SAVED RHWC 

RHC : SAVED REGISTER TO CHANGE 
JSR RO, a#F ILLRE ‘MOV WRFROM+<266.*2> INTO SAVED RHBA 
RHBA _ FSAVED REGISTER TO CHANGE 
WRF ROM+<266. *2> DATA 

JSR RO, a#F ILLRE :MOV 1 INTO SAVED RHCA 

RHCA : SAVED REGISTER TO CHANGE 
JSR RO, a4F ILLRE ‘MOV 1 INTO SAVED RHCC 

RHCC : SAVED REGISTER TO CHANGE 
JSR RO, a4F ILLRE ‘MOV 1 INTO SAVED RHDST 
RHDST : SAVED REGISTER TO CHANGE 


:*NOW COMARE REGISTERS BEFORE WRITE HEADER AND DATA 
*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
wC : TEST DATA STARTING FROM "RHWC' 
18. 718. REGISTERS TO BE COMPARED 
1$ ;RETURN TO 1$ ON ERROR 
2$ ;RETURN TO 2$ ON NO ERROR 
ERROR 27 ;WRITE HEADER AND DATA 
RTS PC ;CAUSED IMPROPER REGISTER 

; CHANGE 

:GOOD DATA GIVES WHAT SHOULD 


;BE THERE 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMANT 


7*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
;*NOTHING GOT CHANGED 


JSR RO, @4#COMPAR COMPARE TWO BLOCKS OF MEMORY 
RE INTO ;GOOD DATA STARTS FROM REINTO 
WRF ROM TEST DATA STARTS FROM WRFROM 
266. :266. WORDS TO BE COMPARED 
3$ :RETURN TO 3$ ON ERROR 

' 4$ ;RETURN TO 4$ ON NO ERROR 
ERROR 30 ;WRITE HEADER AND DATA 
RTS PC CHANGED WRITE FROM BUFFER 


C2 
C2 


4 11 
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;*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
z*READ INTO BUFFER IS FILLED WITH ONES 


041456 PC ,@#CLDISK ;SET R1-RHCS1, R2-RHCS2 
041326 RO,@4CLAREA ;CLEAR 260. WORDS, FROM REINTO 
0 s STARTING FROM REINTO 
3260. WORDS 
sFILL WITH -1 


;*WRITE FROM hte IS FILLED WITH 10001,0,0, ae oon’ 2000, AND 254 OF 0 
JSR RO, @4#F LHEAD ;SAVE HEADER DATA iN 
:LOCATION WHERE SAVED. 
R OF WORDS SAVED 
[FIRST DATA WORD 
SECOND DATA WORD 
STHIRD DATA WORD 
FOURTH DATA WORD 
sFIFTH DATA WORD 
SIXTH DATA WORD 
RO, @#CLAREA CLEAR 254. WORDS, FROM WRFROM+<6*2> 
WRF ROM+<6*2> STARTING FROM WRF ROM+<6*2> 
254. 7254. WORDS 
sFILL WITH O 


3 *NOW FILL COMMAND 
JSR RO, ARUN ;SETUP TO RUN FOR DATA COMMAND 
1 [CYLINDER 1 


0 :SECTOR O 
0 :T 


; TRACK 0 
-256.-4 ;WORD COUNT (DATA) = 256. + 
RE INTO ;BUS ADDRESS 
0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
032106 ECI!FMT22 316 BITS PER WORD FORMAT 
032110 REFOR :GET READY TO DO A REFOR 


7*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 


032112 004037 041624 RO, @#SAVER 2 SAVE REGISTERS 
C ;RHWC IS THE FIRST REGISTER SAVED 
[STARTING ADDRESS OF WHERE 
032122 18. [NUMBER OF REGISTERS 


032124 041536 PC ,@#CHECKT CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1 
066720 ~CPHALT ; CANNOT CONTINUE TESTING IF ANY OF 


013777 004606 150122 @ARP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002450 @AREFOR,-(SP)  ;GET READY TO MOVE COMMAND 
000101 AGO! IE, (SP) GET READY TO SET ‘GO' AND 
150120 (SP)+,@RHCS1 :GO WITH 
aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
032162 011305 @R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


032164 104413 ;WAIT FOR RDY BIT TO SET 
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WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9080 MICRO SECONDS 
;RDY MUST SET BETWEEN 
@AREFOR,-(SP)  ;SAVE COMMAND 
#IE'GO!DVA, (SP) SINCLUDE IE!GO!DVA 
(SP) ,a#$GDDAT  :SAVE FOR PRINTOUT 
(SP)+,RO [DURING ABOVE OPERATION ONLY IE!GO!DVA 
67$ ; BRANCH IF GOOD 


RO, @#$BDDAT DATA 
R1,@4REGADR [FAILING REGISTER RHCS1 
21 ;DURING ABOVE OPERATION ONLY 
#MOL !DPR!VV,=(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,a@#$GDDAT  ;SAVE FOR PRINTOUT 
(SP)+,R5 [DURING ABOVE OPERATION ONLY MOL !DPR! VV 
69$ BRANCH IF GOOD 
R5 ,@#$BDDAT BAD DATA 
MOV R3,@4#REGADR FAILING REGISTER RHDS1 
032254 104063 63 [DURING ABOVE OPERATION ONLY 


3 * CHANGE ref 77 ibhcay TO EXPECTED VALUES 
032256 041360 JSR RO, @4F ILLRE ;MOV 0 INTO SAVED RHWC 
RHWC Frey REGISTER TO CHANGE 


0 2D 

041360 JSR RO, @4F ILLRE sMOV REINTO+<260.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 
RE INTO+<260. *2> 


DATA 
041360 JSR RO, a4F ILLRE ;MOV 1 INTO SAVED RHDST 
- tatiad Per REGISTER TO CHANGE 


;*COMPARE REGISTERS BEFORE READ HEADER AND DATA 
;*WITH yd gps AFTER COMMAND 
042444 R OMREG COMPARE SAVED REGISTERS WITH 
_ }GOOD DATA SAVED IN ‘SAVERE' 

TEST DATA STARTING FROM ‘RHWC' 
318. ete TO BE COMPARED 
RETURN TO 5$ ON ERROR 

032322 032330 RETURN To 6$ ON NO ERROR 


032324 104031 : ERROR 31 READ HEADER AND DATA CAUSED 
032326 000207 RTS PC ; IMPROPER REGISTER CHANGE 
2 600D lt GIVES WHAT SHOULD 


;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


:*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
;*THAT READ WAS GOOD 


032330 
032330 


043474 RO,a4#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
ROM :GOOD DATA STARTS FROM WR. ROM 
TEST DATA STARTS FROM REINTO 

3260. WORDS TO BE COMPARED 
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032346 
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MACY11 30A(1952)_ 27=JUL~-78 
SEEK TESTS 


7$ 
10$ 


ERROR 
RTS 


32 
PC 
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;RETURN TO 7$ ON ERROR 
RETURN TO 10$ ON NO ERROR 


;WRITE HEADER AND DATA 
;FOLLOWED BY A READ HEADER 
AND DATA GAVE A READ ERROR 
ERROR MAY BE IN READ OR WRITE 


SEQ 0139 
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032352 000004 
032354 012706 
032360 012737 
032366 004737 
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013777 
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000012 
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SCOPE 

MOV STACK, SP RESET STACK 

MOV 443 ,QATSTNM SAVE TEST NUMBER 

JSR PC ,@4CLDISK 3SET R1-RHCS1, R2-RHCS2 


Sale MOVES ARE TO INITIALIZE TEST FROM 
-* 

3 * THESE LOCATIONS ARE CHANGED DURING TEST TO ENABLE 
[*GOING TO NEXT CYLINDER 


#10000 ,a#ST1+10 
NS dE TT apes tlt 


#10001 ,a#ST9+10 
#2000 ,a#ST10+10 
#1, Q4ST11+4 


:*THIS IS TO GET THE HEADS TO CYLINDER 0 


@ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 
@ARECALI,-(SP) ;GET READY TO MOVE COMMAND 
AGO!IE, (SP) :GET whe’ TO SET ‘GO* AND 
(SP) +,@RHCS1 G0 WITH 
aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
SWAIT FOR DRY BIT TO SET 
WAIT FOR RHDS1 REGISTER 
WAIT FOR DRY BIT IN RHDS1 REGISTER 
ALLOW 319990 MICRO SECONDS 
DRY MUST SET BETWEEN 
#10. ,a4$TMP1 TEN COUNT TO GET TO CYLINDER 10 
PC ,a@#CLDISK ZSET R1-RHCS1, R2-RHCS2 


*FILL WRITE FROM BUFFER WITH HEADER 


JSR RO, @4F LHEAD : SAVE HEADER i iN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 
:NUMBER OF WORDS SAVED 
10000 FIRST DATA WORD 
<18.*400>!21. ;SECOND DATA WORD 

0 ; THIRD DATA WORD 

0 [FOURTH DATA WORD 


z*FILL WRITE FROM BUFFER WITH DATA 

JSR RO, @4CLAREA sCLEAR 256. WORDS, FROM WRFROM+10 

WRF ROM+10 ;STARTING FROM WRFROM+10 

256. 3256. WORDS 

<0. *2000>!<18.*40>!21. FILL WITH <0. *2000>!<18.*40>!21. 


7*FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER 
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JSR RO, @4#F LHEAD ; SAVE HEADER DATA IN WRFROM+<260. *2> 
WRF ROM+<260. *2> LOCATION WHERE SAVED 


4 
10001 
0 


; NUMBER oF WORDS SAVED 


0 
0 “FOURTH DATA WORD 
:*FILL WRITE FROM BUFFER WITH NEXT TRACK DATA 


JSR RO,@4CLAREA CLEAR 2 WORDS, FROM WRFROM+<264. *2> 
WRF ROM+<264. *2> :STARTING FROM WRFROM+<264. *2> 


32 WORDS” 
1.*2000 FILL WITH 1.*2000 
3;*THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
certian a 0 
SECTOR 21. 
‘TRACK 18. 
[WORD COUNT (DATA) = 262. + 
BUS ADDRESS 
;DO NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
[GET READY TO DO A WRIFOR 


;*SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 


JSR RO, @#SAVER _— REGISTERS 

RHWC HWC IS THE FIRST REGISTER SAVED 
SAVERE i STARTING ADDRESS OF WHERE 

18. [NUMBER OF REGISTERS 


JSR PC ,@#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
,CPHALT —— CONTINUE TESTING IF ANY OF 


@ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


@AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
AGO!IE, (SP) :GET wie TO SET 'GO" AND 
(SP)+,@RHCS1 GO W 
@R1,RO0 7 SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


;*ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760 MICRO SEC. 
:*MAX TIME ALLOWED = ONE REVOLUTION + SEEK + 2 SECTORS 
;*MIN TIME ALLOWED = 2 SECTORS + SEEK 


WAT WAIT FOR RDY BIT TO SET 

RHCS1 WAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
1695. ;ALLOW 16950 MICRO SECONDS 

845. RDY MUST SET BETWEEN 
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013746 @AWRIFOR,-(SP) ;SAVE COMMAND 
#IE'GO:DVA,(SP) :INCLUDE IE!GO!DVA 
(SP) ,a#$GDDAT SAVE FOR PRINTOUT 
(SP)+,RO [DURING ABOVE OPERATION ONLY IE!GO!DVA 
64$ BRANCH IF GOOD 
RO, @#$BDDAT ;BAD DATA 
R1,@4REGADR FAILING REGISTER RHCS1 
21 :DURING ABOVE OPERATION ONLY 
#MOL ! DPR! VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,a#$GDDAT  ;SAVE FOR PRINTOUT 
(SP) +.R5 DURING F600 ONLY MOL! DPR! VV 


6 BRANCH IF 

R5 , @#SBDDAT :BAD DAT. 

R3,@4REGADR PAILING. REGISTER RHDS1 

63 [DURING ABOVE OPERATION ONLY 


z*NOW CHANGES SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, a4F ILLRE z;MOV_O0 INTO SAVED RHWC 
RHWC oy REGISTER TO CHANGE 


JSR RO, @4F ILLRE :MOV WRFROM+<266.*2> INTO SAVED RHBA 
RHBA ED REGISTER TO CHANGE 
WRF ROM+<266. *2> DATA 


JSR RO, @4F ILLRE ; INTO SAVED RHCC 
ae a * REGISTER TO CHANGE 


JSR RO, a#F ILLRE : INTO SAVED RHCA 
RHCA -S REGISTER TO CHANGE 


iD 
JSR RO, @4F ILLRE . INTO SAVED RHDST 
oor . REGISTER TO CHANGE 


:*COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
;*WITH REGISTERS AFTER COMMAND 


042444 JSR RO, a@#COMREG ; COMPARE SAVED REGISTERS WITH 
VERE GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
318. REGISTERS TO BE COMPARED 
RETURN TO ST7 ON ERROR 
RETURN TO S18 ON NO ERROR 
033100 WRITE HEADER AND DATA CAUSED 
033102 000207 IMPROPER REGISTER CHANGE 
eee DATA GIVES WHAT SHOULD BE 


SASS SSS 
WCOONQAUS WI 


THERE 
?RECEIVED DATA GIVES WHAT WAS BE 
; THERE AFTER COMMAND 


;*SETUP TO READ HEADER AND DATA FOR NEXT TRACK 
[*FILL READ INTO BUFFER WITH ALL ONES 


004737 041456 JSR PC,a@#CLDISK SET R1-RHCS1, R2-RHCS2 
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JSR RO, @4#CLAREA 
REINTO 
260. 


144 SEQ 0143 
0-10) 


CLEAR 260. WORDS, FROM REINTO 
STARTING FROM REINTO 

3260. WORDS 

sFILL WITH =1 


7*FILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO, @4F LHEAD 
WRF ROM 


4 

10001 

0 

0 

JSR RO, @4CLAREA 
eran *2> 

1*2000 


JSR RO, @4CLAREA 
URFROM+<6e3> 
254. 


SAVE HEADER ee IN WRFROM 
opted yp WHERE SAVED 

R OF WORDS SAVED 
“FIRST DATA WORD 
[SECOND DATA WORD 
STHIRD DATA WORD 
FOURTH DATA WORD 


CLEAR 2 WORDS, FROM WRFROM+<4*2> 
STARTING FROM WRFROM+<4*2> 

32 WORDS 

FILL WITH 1*2000 

CLEAR 254. WORDS, FROM WRFROM+<6*2> 

£256. wae FROM WRF ROM+<6*2> 


sFILL WITH 0 


>*FILL COMMAND INTO REGISTERS 


= RO, @4#RUN 
0 

0 

-256.-4 

re 


ECI!FMT22 
REFOR 


;SETUP TO RUN FOR DATA COMMAND 

CYLINDER 1 

SSECTOR 0 

STRACK 0 

WORD COUNT (DATA) = 256. + 

[BUS ADDRESS 

;DO NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 

:GET READY TO DO A REFOR 


*SAVE REGISTERS FOR COMPARISON AFTER READ HEADER 
;*AND DATA 


RO, a@#SAVER 


PC ,@ACHECKT 
~CPHALT 


@ARPSVEC ,ARPVEC 
@AREF OR, ~( SP) 


AGO! IE, (SP) 


(SP)+,@RHCS1 


e 


: SAVE REGISTERS 

;RHWC IS THE FIRST REGISTER SAVED 
SSTARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
—— CONTINUE TESTING IF ANY OF 


SET RPO4 VECTOR ADDRESS 


;GET READY TO MOVE COMMAND 

;GET READY TO SET *GO* AND 

;GO WITH 

SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 
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@AREF OR ,~(SP) 
WIE! 1G! BVA. (SP) ; 


(SP) , a#SGDDAT 


(SP)+,R5 
66$ 


R5 ,@#SBDDAT 
ye - @AREGADR 


B 12 
3:06 PAGE 
T (CYL = 


145 
0-10) 


tes FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
rt FOR RDY BIT IN RHCS1 REGISTER 
Ow 9080 MICRO SECONDS 
eRDY OmUST SET BETWEEN 
:SAVE COMMAND 


Cc 

zs INCLUDE IE!GO!DVA 
;SAVE FOR PRINTOUT 
[DURING ABOVE OPERATION ONLY IE!GO!DVA 
{BRANCH | Y GOOD 
BAD DAT. 
zFAILING REGISTER RHCS1 
;DURING ABOVE OPERATION ONL 

;SAVE BITS SET DURING OPERATION IN RHDS1 
;SAVE FOR PRINTOUT 
[DURING ABOVE OPERATION ONLY MOL !DPR! VV 
BRANCH IF GOOD 


zBAD DATA 
FAILING REGISTER RHDS1 
[DURING ABOVE OPERATION ONLY 


z*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @4F ILLRE 
RHWC 


0 
JSR RO, @4F ILLRE 


RHBA 

RE INTO+<260. *2> 
JSR RO, @4F ILLRE 
RvsT 


V 0 INTO SAVED RHWC 
SAVED REGISTER TO CHANGE 


zDATA 
SMOV REINTO+<260.*2> INTO SAVED RHBA 
; SAVED aa +t Ha TO CHANGE 


;MOV_1 INTO SAVED RHDST 
— REGISTER TO CHANGE 


;*COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH 
OMMAND 


z*REGISTERS AFTER C 


JSR RO, a@#COMREG 
—— 


18. 
ST12 
$113 


ERROR 
RTS 


;COMPARE SAVED REGISTERS WITH 
:GOOD DATA SAVED IN 'S 

TEST DATA STARTING 

718. REGISTERS TO BE COMPARED 
;RETURN TO ST12 ON ERROR 
[RETURN TO ST13 ON NO ERROR 


;READ HEADER AND DATA CAUSED 
; IMPROPER REGISTER CHANGE 
[GOOD DATA GIVES WHAT SHOULD 


BE THERE 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMAND 


;*READ INTO BUFFER IS CHECKED FOR PROPER READ 


JSR RO, @4#COMPAR 
WRF ROM 
RE INTO 


COMPARE TWO BLOCKS OF MEMORY 
[GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 
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000404 3260. WORDS TO BE COMPARED 
033444 [RETURN TO ST14 ON ERROR 
033450 ;RETURN TO ST15 ON NO ERROR 


104032 : RROR 32 WRITE HEADER AND DATA 

000207 R WITH AN IMPLIED SEEK 
FOLLOWED BY A READ 
HEADER AND DATA ON THE 
ery TRACK GAVE A 


READ ERROR 
ERROR MAY BE READ OR WRITE 
sone Se HAVE ADVANCED ONE CYLINDER BY AN IMPLIED 


: SCHANGES WILL BE MADE TO ENABLE GOING TO THE NEXT 
7*CYLINDER AND THEN THE ABOVE WILL BE REPEATED 
*TILL CYLINDER 10 IS REACHED 


032550 ST15: a4#ST1+10 
032570 AD #<1. oe a#ST2+10 

a#ST3+10 
032622 #<1.*2000>,a4ST4+10 

I aasT5+4 

a4ST6+6 

@4ST6+16 

a¥ST9+10 
033152 #<1. + tal a4#ST10+10 


;COUNT FOR TEN TIMES 
BRANCH IF 10 NOT DONE 
310 COMPLETED SO CONTINUE 


BR 
032540 ; ; JUMP AS 10 NOT DONE 


7*THE HEADS ARE NOW AT CYLINDER 10 

7*ALL REGISTERS WILL BE SAVED AND A SEEK WILL BE GIVEN 
;*TO CYLINDER 0 

:*FILL REGISTERS FOR A SEEK COMMAND 


JSR PC ,a@#CLDISK SET R1-RHCS1, R2-RHCS2 
JSR RO, @#SEEKCY SEEK FOR 
033552 000000 0 CYLINDER 0 


3*SAVE REGISTERS FOR COMPARISON AFTER _ COMMAND 
033554 JSR RO, @#SAVER SAVE REGISTERS 
0335 C ZRHWC IS THE FIRST REGISTER SAVED 
[STARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


013777 146472 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


033574 013746 MOV @ASEECOM,-(SP) ;GET READY TO MOVE COMMAND 

033600 AGO! IE, (SP) GET READY TO SET *GO" AND 

033604 (SP) +,@RHCS1 GO WITH 

033610 @R1,RO SAVE RHCS1 DURING ABOVE OPERATION 
033612 011305 @R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
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a FOR ONE Cu weno MLE AF FOR TEN=70 MILI SEC 
sWAIT FOR TO SET 


I GISTER 
WAIT FOR DRY BIT IN RHDS1 REGISTER 
ALLOW 70000 MICRO SECONDS 
“DRY MUST SET BETWEEN 
@ASEECOM,-(SP) ;SAVE C 


: OMMAND 
#DVA!GO! IE! RDY, (SP) s INCLUDE DVA!GO!IE!RDY 
DAT ;SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY 
BRANCH IF GOOD 


DAT. 

FAILING REGISTER RHCS: 
2 [DURING ABOVE OPERATION ONLY 
#PIP!MOL!DPR!VV, zSAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,@#SGDDAT ; TOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY PIP!MOL !DPR! VV 
66$ {BRANCH Yd GOOD 
RS ,@#SBDDAT 


[BAD D. 
R3,@4#REGADR PATLING REGISTER RHDS1 
63 ;DURING ABOVE OPERATION ONLY 


3*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


RO, @4F ILLRE z:MOV O INTO SAVED RHCC 
bry REGISTER TO CHANGE 


@AATTENT, awSAVERE+24, ;SET APPROPRIATE ‘ATA’ BITS 

RO, @#CHREG ;CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 
71 BIT/BITS TO BE + on 
NEW VALUE OF ATA IS 1 
; CHANGE ATA BIT 

RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
[CHANGE RHCS1 REGISTER 
31 BIT/BITS TO BE CHANGED 
NEW VALUE OF SC IS 1 

033752 ; CHANGE SC BIT 


; * COMPARE pep ss AFTER A SEEK COMMAND 
033754 esi? 042444 RO, @4#COMREG ; COMPARE SAVED bre ae 


18, REGISTERS TO BE COMPARED 
033766 RETURN TO ST18 ON ERROR 
033770 033776 “RETURN TO ST19 ON NO ERROR 
033772 104037 : ERROR 37 SEEK COMMAND CAUSED AN 
033774 000207 RTS PC ; ERROR 

: GOOD : en GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT WAS 
7 THERE AFTER A SEEK COMMAND 


;*AT THIS POINT THE CURRENT CYLINDER IS GOOD AND THERE ARE 
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7*NO ERROR BITS 

7*A READ HEADER AND DATA WILL BE DONE ON CYLINDER 0 
7*SECTOR 21 TRACK 18, EXPECTED DATA IS 1125 

7*FOR 10 WORDS 

[*CLEAR READ INTO BUFFER WITH ALL ONES 


JSR RO, @ACLAREA CLEAR 260. WORDS, FROM REINTO 
RE INTO STARTING FROM REINTO 
260. ; WORDS 


3260. 
-1 sFILL WITH =1 


s*FILL WRITE fan BUFFER WITH EXPECTED DATA 
JSR RO, @4F LHEAD 7 SAV — HEADER _s. IN WRFROM 
WRF ROM se ORATION WHERE SAVED. 
4 R OF WORDS SAVED 
10000 “FIRST DATA WORD 
<18.*400>!<21.> ;SECOND DATA WORD 
0 : THIRD DATA WORD 
0 ;FOURTH DATA WORD 
JSR RO, @#CLAREA =CLEAR 10. ne FROM WRFROM+<4. *2> 
gpa *2> 7 STAR TING FROM WRFROM+<4.*2> 
10. 310. WORD 
<18.*40>!<21.> FILL WITH <18.*40>!<21.> 
JSR “ry @ACLAREA CLEAR 246. WORDS, FROM WRF ROMS<14. *2> 
WRF ROM+<14.*2> STARTING FROM WRFROM+<14.*2> 
246. 3246. WORDS 
-1 sFILL WITH -1 


7*FILL READ HEADER AND er COMMAND FOR 10 WORDS 
JSR RO, @4RUN :SE TUP TO a FOR DATA COMMAND 


K 18. 
‘WORD COUNT (DATA) = 10. 
[BUS ADDRESS 
0 D0 NOT INHIBIT te ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
REFOR ;GET READY TO DO A REFOR 


JSR PC ,@#CHECKT CHECK DVA,RDY.MOL,DPR,DRY,VV = 1 
ont ,CPHALT a CONTINUE TESTING IF ANY OF 


@ARP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 


@AREFOR,-<{SP)  ;GET READY TO MOVE COMMAND 
AGO! IE, (SP) GET READY TO SET ‘GO’ AND 
(SP)+,@RHCS1 GO WITH 


WAIT FOR RDY BIT TO SET 

SWAIT FOR ees REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
SALLOW 9080 MICRO SECONDS 

:RDY MUST SET BETWEEN 
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;*CHECK READ WORDS 
004037 043474 JSR RO, @4COMPAR COMPARE TWO BLOCKS OF MEMORY 
002470 F ROM ;GOOD DATA STARTS FROM WRF ROM 
003534 ' TEST DATA STARTS FROM REINTO 
. 7260. WORDS TO BE COMPARED 
034162 SRETURN TO ST26 ON ERROR 
034166 ;RETURN TO ST27 ON NO ERROR 


104032 : ERROR 32 ;READ HEADER AND DATA 
000207 RTS PC FOLLOWING A SEEK TO CYLINDER O 
Coe 10 GAVE AN 
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000004 : COPE 

012706 001900 MO ASTACK,SP sRESET STACK 

012737 000044 004604 #44 ,Q4TSTNM SAVE TEST NUMBER 
004737 041456 PC ,@4CLDISK sSET R1-RHCS1, R2-RHCS2 


;*THIS GETS HEADS TO CYLINDER 0 
013777 146052 MOV @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 @ARECALI,-(SP) ;GET READY TO MOVE COMMAND 
#GO!IE, (SP) GET READY TO SET ‘GO" AND 
146050 (SP)+,@RHCS1 360 WITH 
@R1 RO SAVE RHCS1 DURING ABOVE OPERATION 
011305 @R3,R5 [SAVE RHDS1 DURING ABOVE OPERATION 


104413 WA z;WAIT FOR DRY BIT TO SET 

002322 ;WAIT FOR RHDS1 REGISTER 

000200 DRY WAIT FOR DRY BIT IN RHDS1 REGISTER 
076377 . ALLOW 319990 MICRO SECONDS 

056701 . DRY MUST SET BETWEEN 


s*FILL REGISTERS FOR A SEEK COMMAND 
JSR RO, @#SEEKCY SEEK FOR 
0. CYLINDER 10. 


;*SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND 
JSR RO, @#SAVER SAVE REGISTERS 
;RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 
NUMBER OF REGISTERS 


013777 004606 145772 @ARP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002452 @ASEECOM,-(SP) ;GET READY TO MOVE COMMAND 
000101 : ) GET READY TO SET ‘GO* AND 
145770 ‘ :GO WITH 
ari oo SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


Dt aan FOR ONE CYLINDER=7 MILI SEC., FOR ere MILI SEC 
WAT zWAIT FOR DRY BIT zr 
;WAIT FOR RHDS1 REGISTER 
WAIT FOR DRY BIT IN RHDS1 REGISTER 
SALLOW 70000 MICRO SECONDS 
. ;DRY MUST SET BETWEEN 
002452 @ASEECOM,-(SP) ;SAVE COMMAND 
004301 ADVA!GO!IE!RDY, (SP) INCLUDE DVA!GO!IE!RDY 
001124 (SP) ,@4#$GDDAT ;SAVE FOR PRINTOUT 
| aes DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY 


6 BRANCH IF GOOD 
001126 RO, @#$BDDAT 7;BAD DATA 
004600 MO R1,@4REGADR FAILING REGISTER RHCS1 
21 ; DURING ABOVE OPERATION ONLY 
030500 : MOV #PIP!MOL!DPR!VV,-(SP) _;SAVE BITS SET DURING OPERATION IN RHDS1 
011637 001124 (SP), @A$GDDAT ~;SAVE FOR PRINTOUT 
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pS ae ;DURING ABOVE OPERATION ONLY PIP!MOL !DPR! VV 


BRANCH IF GOOD 
R5 ,@#$BDDAT ;BAD DATA 
R3,@4REGADR FAILING REGISTER RHDS1 
63 ;DURING ABOVE OPERATION ONLY 


7*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


041360 RO, @4F ILLRE MOV 10. INTO SAVED RHCC 
tote REGISTER TO CHANGE 


004740 @A4ATTENT, aNSAVERE +26 ;SET APPROPRIATE ‘ATA* BITS 
042336 J RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 
;1 BIT/BITS TO BE CHANGED 
NEW VALUE OF ATA IS 1 
; CHANGE ATA BIT 
RO, @#CHREG ; CHANGE BITS IN SAVED REGISTER 
[CHANGE RHCS1 REGISTER 
:1 BIT/BITS TO BE is 
NEW VALUE OF SC IS 1 
[CHANGE SC BIT 


3 * COMPARE ya piss AFTER A SEEK COMMAND 
042444 JSR OMREG ; COMPARE SAVED REGISTERS WITH 
RE [GOOD DATA SAVED IN 'SAVERE' 
TEST DATA STARTING FROM ‘RHWC* 
[18. REGISTERS TO BE COMPARED 
;RETURN TO 1$ ON ERROR 
034476 ;RETURN TO 2$ ON NO ERROR 


104037 : ERROR 37 i—- CAUSED 


000207 RTS PC 
: GOOD | ie GIVES WHAT SHOULD 
SRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER A SEEK COMMAND 


:*AT THIS POINT THE CURRENT CYLINDER IS GOOD AND THERE ARE 
;*NO ERROR BITS 

7*A READ HEADER AND DATA WILL BE DONE ON CYLINDER 9 
i*SECTOR 21 TRACK 18, EXPECTED DATA IS 23125 

;*FOR 20 WORDS 

;*CLEAR READ INTO BUFFER WITH ALL ONES 


004737 041456 , JSR PC,@4CLDISK SET R1-RHCS1, R2-RHCS2 
041326 JSR RO, @A#CLAREA SCLEAR 260. WORDS, FROM REINTO 
oF 5 Ue yh FROM REINTO 


00404 : - WORDS 
177777 -1 sFILL WITH -1 


:*FILL WRITE FPOM BUFFER WITH EXPECTED DATA 


004037 041302 JSR RO, @AF LHEAD SAVE HEADER DATA IN WRFROM 
002470 WRF ROM ;LOCATION WHERE SAVED 
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NUMBER OF WORDS SAVED 
10011 zFIRST DATA WORD 

<18.*400>!<21.> : SECOND DATA WORD 

0 ; THIRD DATA WORD 

0 = FOURTH DATA WORD 

JSR RO, @4CLAREA sCLEAR 20. WORDS, FROM WRFROM+<4.*2> 
WRF ROM+<4. *2> ; STARTING FROM WRFROM+<4, *2> 


20. 320. WORDS 

<9. *2000>!<18.*40>!<21.> sFILL WITH <9. *2000>!<18.*40>!<2 
JSR RO, @#CLAREA 7 CLEAR 250. WORDS, FROM WRF ROM+<24., #2> 

WRF ROM+<24,, *2> STARTING FROM WRFROM+<24,.*2> 

250. 3250. wokbs 

-1 sFILL WITH -1 


3*FILL READ HEADER AND DATA COMMAND FOR 10 WORDS 
SR RO, @4#RUN 2 SETUP TO RUN FOR DATA COMMAND 


18. 
;WORD COUNT (DATA) = 20. + 


[BUS ADDRESS 
0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
REFOR :GET READY TO DO A REFOR 


JSR PC ,@ACHECKT CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1 
TYPE ~CPHALT ; CANNOT CONTINUE TESTING IF ANY OF 
HALT : STOP 


@ARP4VEC ,A@RPVEC ;SET RPO4 VECTOR ADDRESS 


@AREFOR,-(SP)  ;GET READY TO MOVE COMMAND 
#GO!IE, (SP) GET READY TO SET °GO' AND 
(SP)+,@RHCS1 :GO WITH 


z;WAIT FOR RDY BIT TO SET 

;WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9080 MICRO SECONDS 

sRDY MUST SET BETWEEN 


READ WORDS 

RO, a@#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
:GOOD DATA STARTS FROM WRF ROM 
TEST DATA STARTS FROM REINTO 
5260. WORDS TO BE COMPARED 
RETURN TO 3$ ON ERROR 
;RETURN TO 4$ ON NO ERROR 


;READ HEADER AND DATA 
FOLLOWING A SEEK TO CYLINDER 9 
;FROM CYLINDER 0 GAVE AN 

ERROR 
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SEEK & READ TEST (CYL = 009) 


SEQ 0152 
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WRITE CHECK DATA & WRITE PROTECT TESTS 


-SBTTL WRITE CHECK DATA & WRITE PROTECT TESTS 


SEQ 0153 
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CZRJICO, RPOG/S/6 FCTNL CTLR1 
CZRJIC.P11 27-JUL-78 13:05 T45 WRITE CHECK HEADER AND DATA 
6900 034672 000004 TST45: SCOPE 
6901 034674 012706 001000 MOV #STACK SP RESET STACK 
6902 034700 012737 000045 004604 MOV #45 ,QATSTNM SAVE TEST NUMBER 
6903 034706 004737 041456 JSR PC,@4CLDISK SET R1-RHCS1, R2-RHCS2 
034712 004737 041536 JSR PC ,@4CHECKT [CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
6905 034716 104401 066720 TYPE ~CPHALT [CANNOT CONTINUE TESTING IF ANY OF 
yt 034722 000000 HALT 7 STOP 
6908 ad HEADS TO CYLINDER 5 
6909 034724 004037 041426 RO, @#SEEKCY SEEK FOR 
oote 034730 000005 “itt CYLINDER 5 
rat 034732 013777 004606 145326 MOV @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 
6914 034740 013746 002452 MOV @ASEECOM,-(SP) ;GET READY TO MOVE COMMAND 
6915 034744 052716 000101 BIS #GO!IE, (SP) GET READY TO SET ‘GO" AND 
6916 034750 012677 145324 MOV (SP)+,@RHCS1 GO WITH 
6917 034754 011100 MOV @R1 ,RO SAVE RHCS1 DURING ABOVE OPERATION 
yeas | 034756 011305 MOV @R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
6920 034760 104413 WAT ;WAIT FOR DRY BIT TO SET 
6921 034762 002322 RHDS1 WAIT FOR RHDS1 REGISTER 
6922 034764 000200 DRY WAIT FOR DRY BIT IN RHDS1 REGISTER 
6923 034766 015530 7000. TALLOW 70000 MICRO SECONDS 
6924 034770 000043 35. DRY MUST SET BETWEEN 
oat 034772 004737 041456 JSR PC ,@4CLDISK SET R1-RHCS1, R2-RHCS2 
6927 *FILL WRITE FROM BUFFER WITH HEADER 
6928 034776 004037 041302 JSR RO, @4F LHEAD SAVE HEADER DATA IN WRFROM 
6929 035002 002470 WRF ROM [LOCATION WHERE SAVED 
6930 035004 000004 ~ [NUMBER OF WORDS SAVED 
6931 035006 010005 10005 FIRST DATA WORD 
6932 035010 003404 <7*400>!4 ;SECOND DATA WORD 
6933 035012 000000 0 ;THIRD DATA WORD 
tte: 035014 000000 0 FOURTH DATA WORD 
6936 *10 WORDS OF OF THE FOLLOWING DATA 
aed 2* 12344,17777,0,52525, 129252 
6939 035016 004037 041326 JSR RO, @#CLAREA :CLEAR 10. WORDS, FROM WRFROM+<4*2> 
6940 035022 002500 WRFROM+<4*2> STARTING FROM WRFROM+<4*2> 
6941 035024 000012 10. 710. WORDS 
6942 035026 012344 aaa peo FILL WITH <5*2000>!<7*40>!4 
6943 035030 004037 041326 RO, @4CLAREA CLEAR 10. FROM WRFROM+<14,*2> 
6944 035034 002524 WRF ROM+<1 4.*2> ° STARTING FROM WRFROM+<14.*2> 
6945 035036 000012 10. 310. WORDS 
6946 035040 177777 -1 sFILL WITH ~1 
6947 035042 004037 041326 JSR RO, @#CLAREA CLEAR 10. WORDS, FROM WRFROM+<24,.*2> 
6948 035046 002550 WRF ROM+<24, *2> zSTARTING FROM WRFROM+<24.*2> 
6949 035050 000012 10. 310. WORDS 
6950 035052 000000 0 zFILL WITH 0 
6951 035054 004037 041326 JSR RO, @A#CLAREA CLEAR 10. WORDS, FROM WRFROM+<34.*2> 
6952 035060 002574 WRF ROM+<34., *2> STARTING FROM WRF ROM+<34.*2> 
6953 035062 000012 . 310. WORDS 
6954 035064 052525 52525 sFILL WITH 52525 


6955 035066 004037 041326 JSR RO, @ACLAREA CLEAR 10. WORDS, FROM WRFROM+<44.*2> 
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6956 035072 002620 WRF ROM+<44, *2> s STARTING FROM WRFEROM+<44. *2> 
6957 035074 000012 i 210. WORDS 
6958 035076 125252 125252 ‘FILL WITH 125252 
oy :*FILL LEFT ROTATING ZEROS FROM WRFROM+<54. *2> 
692 035100 010146 MOV ::PUSH R1 ON STACK 
6963 035102 012700 177776 MOV RS7F6. RO :DATA 
6964 035106 012705 000020 MOV #16. ,R5 > COUNT 
6965 035112 012701 002644 MOV #WRFROM+<54.%2>,R1 ;WHERE DATA GOES 
6966 035116 000261 SEC 
6967 035120 010021 1$: MOV RO, (R1)+ :STORE D 
6968 035122 006100 ROL RO :GET FERO TONE BIT LEFT 
6969 035124 005305 DEC R5 SCOUNT 1 
6970 035126 001374 BNE 1$ “BRANCH IF 16 NOT DONE 
ors s*FILL LEFT ROTATING ONE INTO WRFROM+<65. *2> 
6974 035130 000241 CLC 
6975 035132 012700 000001 MOV #1,R0 
6976 035136 010021 2$: MOV RO, (R1)+ 
6977 035140 006300 ASL RO 
6978 035142 103375 BCC 28 
ie. 035144 012601 MOV (SP)+,R1 ;zPOP STACK INTO R1 
6981 
ot z*FILL REST OF DATA 
6984 035146 004037 041326 JSR RO, @4CLAREA :CLEAR 174. WORDS, FROM WRFROM+<86. *2> 
6985 035152 002744 WRF ROM+<86. *2> sSTARTING FROM WRFROM+<86. *2> 
6986 035154 000256 174. 2174. WORDS 
6987 035156 000377 377 SFILL WITH 377 
6988 035160 004037 041302 JSR RO, a4F LHEAD *SAVE HEADER DATA IN WRFROM+<260. *2> 
6989 035164 003500 WRF ROM+<260. *2> :LOCATION WHERE SAVED 
6990 035166 000004 4 :NUMBER OF WORDS SAVED 
6991 035170 010005 10005 ‘FIRST DATA WORD 
6992 035172 003405 <7*400>!5 :SECOND DATA WORD 
6993 035174 000000 0 s THIRD DATA WORD 
6994 035176 000000 0 [FOURTH DATA WORD 
6995 035200 004037 041326 JSR RO, @#CLAREA [CLEAR 2 WORDS, FROM WRFROM+<264.*2> 
6996 035204 003510 WRF ROM+<264. *2> :STARTING FROM WRFROM+<264. *2> 
6997 035206 000002 2 :2 WORDS’ 
—_ 035210 012345 <5*2000>!<7*40>!5 sFILL WITH <5*2000>!<7*40>!5 
7000 
7001 :*READ INTO BUFFER WILL BE CLEARED 
7002 035212 004037 041326 JSR RO, @4CLAREA [CLEAR 266. WORDS, FROM REINTO 
7003 035216 003534 RE INTO ‘STARTING FROM REINTO 
7004 035220 000412 6. +266. WORDS 
7005 035222 177400 177400 *FILL WITH 177400 
7007 :*THE WRITE HEADER AND DATA COMMAND WILL BE LOADED 
7008 035224 004037 043430 SR RO, ARUN :SETUP TO RUN FOR DATA COMMAND 
7009 035230 000005 5 [CYLINDER 5 
7010 035232 004 .BYTE 4 : SECTOR 4 


7011 035233 007 -BYTE 7 RACK 7 
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177366 -262.=4 WORD COUNT (DATA) - 262. 
002470 WRF ROM :BUS ADDRESS 
000000 0 DO NOT INHIBIT BUS ADDRESS INCREMENT 
010000 FMT 22 316 BITS PER WORD FORMAT 
035244 WRIFOR 3GET READY TO DO A WRIFOR 


z*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 


035246 004037 JSR RO, @#SAVER oy REGISTERS 
RHWC HWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 
18. [NUMBER OF REGISTERS 


JSR PC ,@#CHECKT CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1 
TYPE ~CPHALT CANNOT CONTINUE TESTING IF ANY OF 
035270 000000 HALT : STOP 


035272 013777 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


035300 013746 @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
035304 052716 #GO!IE, (SP) ;GET READY TO SET ‘GO" AND 
035310 012677 (SP)+,@RHCS1 GO WITH 


035314 104413 ;WAIT FOR RDY BIT TO SET 
002300 ;WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9860 MICRO SECONDS 
035324 . ;RDY MUST SET BETWEEN 


3 *NOW CHANGE par REGISTERS TO EXPECTED VALUES 
035326 004037 041360 RO, @4F ILLRE zsMOV 0 INTO SAVED RHwWC 
fet) REGISTER TO CHANGE 


0 ;DATA 

041360 RO, @4F ILLRE [MOV WRFROM+<266.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 
WRF ROM+<266. *2> ATA 


zDA 
041360 J RO, a4F ILLRE :MOV 3406 INTO SAVED RHDST 
RHDST ;SAVED REGISTER TO CHANGE 
035354 3406 DATA 


;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
>*WITH REGISTERS AFTER COMMAND 


035356 JSR RO, a4#COMREG s COMPARE SAVED REGISTERS WITH 
035362 ERE [GOOD DATA SAVED IN 'SAVERE' 
035364 WC TEST DATA STARTING FROM ‘RHWC' 
035366 0022 . [18. REGISTERS TO BE COMPARED 
035370 [RETURN TO 3$ ON ERROR 

035372 035400 ;RETURN TO 4$ ON NO ERROR 


035374 104027 : ERROR 27 WRITE HEADER AND DATA 
035376 000207 RTS PC ;CAUSED IMPROPER REGISTER 


; CHANGE 

. DATA GIVES WHAT SHOULD 
BE THERE 

RECEIVED DATA GIVES WHAT 
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WAS THERE AFTER COMMANT 
;*NOW FILL COMMAND FOR READ 


JSR PC ,@4CLDISK 7SET R1-RHCS1, R2-RHCS2 
JSR RO, @4RUN ;SETUP TO RUN FOR DATA COMMAND 
5 sCYLINDER 5 
4 sSECTOR 4 
7 ;TRACK 7 
-262.-4 ;WORD COUNT (DATA) = 262. 
RE INTO [BUS ADDRESS 
0 :DO NOT INHIBIT BUS ADDRESS INCREMENT 
ECI'FMT22 316 BITS PER WORD FORMAT 
035424 REFOR GET READY TO DO A REFOR 


z*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 


035426 JSR RO, @#SAVER fee: REGISTERS 
5 RHWC HWC IS THE FIRST REGISTER SAVED 
SAVERE i STARTING ADDRESS OF WHERE 
18. [NUMBER OF REGISTERS 


035440 JSR PC ,@#CHECKT CHECK DVA,RDY,MOL ,DPR,DRY, yA = 1 
035444 TYPE ~CPHALT [CANNOT CONTINUE TESTING IF ANY OF 
035450 000000 HALT : STOP 


035452 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 @AREFOR,-(SP) ;GET READY TO MOVE COMMAND 
052716 #GO! IE, (SP) GET READY TO SET *GO* AND 
035470 012677 (SP)+,@RHCS1 :GO WITH 


035474 104413 WA WAIT FOR RDY BIT TO SET 
002300 [WAIT FOR RHCS1 REGISTER 
000200 [WAIT FOR RDY BIT IN RHCS1 REGISTER 
001732 SALLOW 9860 MICRO SECONDS 
001502 :RDY MUST SET BETWEEN 


3 *CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @4F ILLRE s;MOV 0 INTO SAVED RHWC 
RHWC io REGISTER TO CHANGE 


0 :DAT 
JSR RO, @4F ILLRE MOV RE INTO+<266. *2> INTO SAVED RHBA 
HBA CHANGE 


3 


R SAVED REGISTER TO 
RE INTO+<266. *2> TA 


;DATA 
JSR RO, @4F ILLRE :MOV 3406 INTO SAVED RHDST 
most Bg REGISTER TO CHANGE 


:*COMPARE REGISTERS BEFORE READ HEADER AND DATA 
z*WITH REGISTERS AFTER COMMAND 


> > 


— 


JSR RO, @#COMREG COMPARE SAVED REGISTERS WITH 
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035552 


035554 
035556 


035574 


035576 
035600 


041456 
043430 


041624 


041536 
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GOOD DATA SAVED IN ‘SAVERE* 
TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 
;RETURN URN TO 5$ ON ERROR 

;RETURN TO 6$ ON NO ERROR 


ERROR 31 ;READ HEADER AND DATA CAUSED 
RTS PC ; IMPROPER te: a 
[GOOD DATA GIVES WHAT SHOULD 
TBE THERE RECEIVED DATA GIVES WHAT WAS 
ti thy: DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
;* THAT READ WAS GOOD 


JSR RO, @#COMPAR COMPARE TWO BLOCKS OF MEMORY 

WRF ROM :GOOD DATA STARTS FROM WRFROM 

RE INTO TEST DATA STARTS FROM REINTO 

266. 3266. WORDS TO BE COMPARED 
[RETURN TO 7$ ON ERROR 

10$ ;RETURN TO 10$ ON NO ERROR 


ERROR 32 ;WRITE HEADER AND DATA 

RTS PC FOLLOWED BY A READ HEADER 
;AND DATA GAVE A READ ERROR 
ERROR MAY BE IN READ OR WRITE 


2*A WRITE ,.READ HAS BEEN SUCCESSFULLY COMPLETED 
:*NOW A WRITE CHECK HEADER AND DATA WILL BE GIVEN 
[*FILL THE WRITE CHECK HEADER AND DATA 


JSR PC ,aACLDISK 7SET R1-RHCS1, R2-RHCS2 

JSR RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 

5 CYLINDER 5 

4 SECTOR _4 

7 STRACK 7 

-262.-4 WORD COUNT (DATA) = 262. 

WRF ROM ;BUS ADDRESS 

0 3;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
WRCHDT ;GET READY TO DO A WRCHDT 


z*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 

JSR RO, @#SAVER a REGISTERS 

RHWC HWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 

18. [NUMBER OF REGISTERS 


JSR PC ,@#CHECKT CHECK DVA,RDY,.MOL ,DPR,DRY,VV = 1 








CZRJICO, RPO4/5/6 FCTNL CTLRI 
C2RJIC.P11 13:05 


27-JUL-78 1 


035646 104401 
035652 000000 


035654 013777 004606 
035662 013746 002440 
035666 000101 
035672 144402 
035676 011100 

035700 

035702 


066720 


035766 
035772 
035774 
036000 
041360 


041360 


042444 


104040 
000207 
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@ARPSVEC ,ARPVEC 
@AWRCHDT , = (SP) 


160 


WRITE CHECK HEADER AND DATA 


TYPE -CPHALT =— CONTINUE TESTING IF ANY OF 


SET RPO4 VECTOR ADDRESS 


;GET READY TO MOVE COMMAND 
GET READY TO SET ‘GO" AND 
;GO WITH 


SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


@AWRCHDT , = (SP) 
MIE!DVA!GO, (SP) 


(SP) ,a#$GDDAT  ; SAVE 


(SP)+,RO 
$ 


64 
RO, @#$BDDAT 
eh - @AREGADR 


#MOL 'DPR! VV,=-(SP) 
(SP) ,@#SGDDAT 
+ ik a 


66 
RS ,@#$BDDAT 
R3,@4#REGADR 


;WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

[WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9860 MICRO SECONDS 

ert MUST SET BETWEEN 


SAVE COMMAND 
Z INCLUDE IE!DVA!GO 
FOR PRINTOUT 
DURING ABOVE OPERATION ONLY IE!DVA!GO 
SBRANCH IF GOOD 


:BAD DATA 
FAILING REGISTER RHCS1 
:DURING ABOVE OPERATION ONL 

SAVE BITS SET DURING OPERATION IN RHDS1 


7SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY MOL ! DPR! VV 
;BRANCH IF GOOD 


BAD DATA 
FAILING REGISTER RHDS1 


;DURING ABOVE OPERATION ONLY 


0 

JSR RO, @4F ILLRE 
RHBA 

1 aaa < .*2> 
JSR 


RO, a4F ILLRE 


ERROR 40 
RTS PC 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
JSR RO, @4F ILLRE 
RHWC 


;MOV_0 INTO SAVED RHWC 
arth REGISTER TO CHANGE 


[MOV WRFROM+<266.*2> INTO SAVED RHBA 
7 SAVED wo TO CHANGE 


v 3408 INTO SAVED RHDST 
“SAVED REGISTER TO CHANGE 


7 *COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
i*WITH REGISTERS AFTER COMMAND 


JSR RO, @4COMREG 
VERE 


= COMPARE SAVED ye ire + ta 


118, REGISTERS TO BE COMPARED 
;RETURN TO 8$ ON ERROR 
[RETURN TO 9$ ON NO ERROR 


WRITE CHECK CAUSED 


;AN IMPROPER REGISTER 


SEQ 0159 
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> CHANGE 
;GOOD DATA GIVES WHAT 
;SHOULD BE THERE 
:RECEIVED DATA GIVES WHAT 
S THERE AFTER COMMAND 


9$: 


SEQ 0160 


ama 
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013777 


013746 
052716 
012677 


000 
144150 


041456 
041326 
041326 
041326 
041326 


041326 


177776 
000020 
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#STACK , SP RESET STACK 

#46 ,@ATSTNM 7; SAVE TEST NUMBER 

PC ,@#CLDISK SET R1-RHCS1, R2-RHCS2 

PC ,@#CHECKT ZCHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
,CPHALT —" CONTINUE TESTING IF ANY OF 


7*GET HEADS TO CYLINDER 5 


RO, @#SEEKCY SEEK FOR 
ZCYLINDER 5 


@ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


@ASEECOM,-(SP) ;GET READY TO MOVE COMMAND 
#GO!IE, (SP) ;GET READY TO SET ‘GO" AND 
(SP)+,@RHCS1 GO WITH 


z;WAIT FOR DRY BIT TO SET 

WAIT FOR RHDS1 REGISTER 

WAIT FOR DRY BIT IN RHDS1 REGISTER 
ZALLOW 25000 MICRO SECONDS 

DRY MUST SET BETWEEN 


PC, a#CLDISK :SET R1-RHCS1, R2-RHCS2 
:*10 WORDS OF EACH 12344,17777,0,52525,125252 


JSR RO, @4CLAREA CLEAR 10. WORDS, FROM WRFROM 
oe ROM Eggtd = Re WRF ROM 


10. 3 

yee '<7*40>'4 sFILL WITH <5*2000>!<7*40>!4 
JSR RO, @4CLAREA ;CLEAR 10. WORDS FROM WRFROM+<10.*2> 
WRF ROM+<10. *2> 7 STAR TING FROM WRFROM+<10.*2> 
10. 310. WORDS 

-1 sFILL WITH -1 

JSR RO, @4CLAREA sCLEAR 10. WORDS, FROM WRFROM+<20.*2> 
WRF ROM+<20. *2> sSTARTING FROM WRFROM+<20.*2> 
10. 310. WORDS 
0 sFILL WITH 0 

JSR RO, @4CLAREA ;CLEAR 10. WORDS, FROM WRFROM+<30.*2> 
WRF ROM+<30. *2> : STARTING FROM WRFROM+<30. *2> 
10. 710. WORDS 

52525 sFILL WITH 52525 
JSR RO, @4CLAREA sCLEAR 10. WORDS, FROM WRFROM+<40. *2> 
WRF ROM+<40. *2> sSTARTING FROM WRFROM+<40. *2> 


310. WORDS 
125252 SFILL WITH 125252 
7*FILL LEFT ROTATING ZEROS FROM WRFROM+<S50. *2> 
MOV R1,-(SP 3;PUSH R1 ON STACK 


MOV #1 $7996, RO “DATA 
MOV #16. ,R5 > COUNT 


SEQ 0161 
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012701 002634 MWREROM+<50.*2>,R1 ;WHERE DATA GOES 
000261 


010021 : RO, (R1)+ STORE DATA 
006100 Hs :GET ae ONE BIT LEFT 


; COUNT 
1$ [BRANCH IF 16 NOT DONE 
z*FILL LEFT ROTATING ONE INTO WRFROM+<65. *2> 


#1 ,R0 
RO, (R1)+ 
RO 


2$ 
(SP)+,R1 ;;POP STACK INTO R1 
s*FILL REST OF DATA 


041326 JSR RO,@ACLAREA :CLEAR 174. WORDS, FROM WRFROM+<82.*2> 
WRF ROM+<82. *2> sSTARTING FROM WRFROM+<82.*2> 
174. 3174. WORDS 
377 sFILL WITH 377 
041326 JSR RO, @4CLAREA :CLEAR 2 WORDS, FROM WRFROM+<256. *2> 
- jabaeanibecaamade > wanes STARTING FROM WRFROM+<256. *2> 
<5*2000>!<7*40>!5 sFILL WITH <5*2000>!<7*40>!5 


;*FILL THE WRITE CHECK HEADER AND DATA 

JSR RO, @4#RUN :SETUP TO RUN FOR DATA COMMAND 

5 CYLINDER 5 

4 ZSECTOR 4 

7 iTRACK 7 

-256. ;WORD COUNT = 256. 

WRF ROM ;BUS ADDRESS 

0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
WRCHEK :GET READY TO DO A WRCHEK 


;*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 
041624 SR RO, @#SAVER SAVE REGISTERS 
:RHWC IS THE FIRST Bagei tig SAVED 
STARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


041536 PC ,@#CHECKT CHECK DVA,RDY.MOL .DPR,DRY,VV = 1 
066720 ,CPHALT ‘on CONTINUE TESTING IF ANY OF 


013777 004606 143670 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002436 @AWRCHEK,-(SP) ;GET READY TO MOVE COMMAND 
4 000101 #GO'IE, (SP) ;GET READY TO SET *GO* AND 
143666 (SP)+,@RHCS1 3:GO WITH 
aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
011305 @R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 





on 
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004 
001124 


001126 
004600 
010500 
001124 


001126 
004606 


042444 
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;WAIT FOR RDY BIT TO SET 
zWAIT FOR RHCS1 REGISTER 
‘WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 9860 MICRO SECONDS 
SRDY MUST SET BETWEEN 
@AWRCHEK,-(SP) ;SAVE COMMAND 
#IE!DVA'GO,(SP) ; INCLUDE IE!DVA!GO 
(SP) ,@#$GDDAT ZSAVE FOR PRINTOUT 
(SP)+,RO ;DURING ABOVE OPERATION ONLY IE!DVA!GO 
67$ ;BRANCH IF GOOD 
RO, a#$BDDAT “BAD DATA 
R1,@4REGADR sFAILING REGISTER RHCS1 
1 > DURING ABOVE OPERATION ONL 
#MOL ! DPR! VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
7 SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY MOL !DPR! VV 
;BRANCH IF GOOD 
;BAD DATA 
sFAILING REGISTER RHDS1 
;DURING ABOVE OPERATION ONLY 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO. a#F ILLRE sMOV 0 INTO SAVED RHWC 
RHC : SAVED REGISTER TO CHANGE 
JSR RO, a4F ILLRE MOV A UIRFROM+<256. *2> INTO SAVED RHBA 
* SAVED REGISTER TO CHANGE 


RHBA 
WRF ROM+<256. *2> DA 

JSR RO, a#F ILLRE zMOV 3405 INTO SAVED RHDST 
: SAVED REGISTER TO CHANGE 


;*COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
z*WITH REGISTER AFTER COMMAND 


JSR RO, a@#COMREG sCOMPARE SAVED REGISTERS WITH 
ERE [GOOD DATA SAVED IN ‘SAVERE' 

TEST DATA STARTING FROM ‘RHWC' 
118. REGISTERS TO BE COMPARED 
[RETURN TO 8$ ON ERROR 
;RETURN TO 9$ ON NO ERROR 
WRITE CHECK CAUSED 
7 AN IMPROPER REGISTER 


E 
GOOD DATA GIVES WHAT 
SHOULD BE THERE 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMANDS 
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TST47: 

#STACK,SP sRESET STACK 

#47 ,QATSTNM ;SAVE TEST NUMBER 

PC, ,@4CLDISK 7SET R1-RHCS1, R2-RHCS2 

@4RH70 ; TEST FOR RH70 CONTROLLER 

30$ . 1, THIS TEST IS SKIPPED 
037330 TST5O ST 
041536 ey ancHe KT sCHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
066720 »CPHALT : CANNOT CONTINUE TESTING IF ANY OF 


004732 @4UBUSB 21S UNIBUS B THERE 
11$ ;UNIBUS B THERE SO CONTINUE 
037330 ar9$ NO UNIBUS B, GO TO NEXT TEST 


:*GET HEADS TO CYLINDER 


041426 = an RO, a#SEEKCY ZSEEK FOR 
5 SCYLINDER 5 


013777 004606 143412 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002452 MOV @ASEECOM,-(SP) ;GET READY TO MOVE COMMAND 
052716 000101 #GO! IE, (SP) :GET READY TO SET ‘GO* AND 
012677 143410 (SP)+,@RHCS1 :GO WITH 


zsWAIT FOR DRY BIT TO SET 

;WAIT FOR RHDS1 REGISTER 

z:WAIT FOR DRY BIT IN RHDS1 REGISTER 
sALLOW 25000 MICRO SECONDS 

DRY MUST SET BETWEEN 


041456 PC ,a@ACLDISK SET R1-RHCS1, R2-RHCS2 
3*10 WORDS OF EACH 12344,17777,0,52525,125252 


041326 JSR RO, @4CLAREA 7CLEAR 10. WORDS, FROM WRFROM 
WRF ROM ; STARTING FROM WRFROM 
10. 310. WORDS 
yaaa yop sFILL WITH <5*2000>!<7*40>!'4 
041326 RO, @4CLAREA ;CLEAR 10. WORDS, FROM WRFROM+<10.*2> 
var ROne<t0: *2> STARTING FROM WRFROM+<10.*2> 
10. 710. WORDS 
~i sFILL WITH -1 
041325 JSR RO,@ACLAREA ;CLEAR 10. WORDS, FROM WRFROM+<20.*2> 
WRF ROM+<20. *2> STARTING FROM WRFROM+<20. *2> 
10. 310. WORDS 
0 sFILL WITH 0 
041326 JSR RO, @#CLAREA ;CLEAR 10. WORDS, FROM WRFROM+<30.*2> 
WRF ROM+<30,. *2> ; STARTING FROM WRFROM+<30. *2> 
10. 710. WORDS 
2 sFILL WITH 52525 
041326 RO, @4CLAREA sCLEAR 10. WORDS, FROM WRFROM+<40. *2> 
002610 WRF ROM+<40,. *2> sSTARTING FROM WRFROM+<40. *2> 
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037016 


037020 


0371 
037102 
037104 


037112 


037122 
037124 


5/6 FCTNL 
27-JUL-78 


000012 
125252 


010146 


177776 
000020 
002634 


041326 


041326 


043430 


002000 


041624 


041536 
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10, 210. WORDS 
125252 TFILL WITH 125252 
:*FILL LEFT ROTATING ZEROS FROM WRFROM+<50. *2> 


-(SP) :7PUSH R1 ON STACK 
RS7II6 RO sDATA 


#16. ,R5 ; COUNT 
#WRFROM+<50.*2>,R1 ;WHERE DATA GOES 


RO,(R1)+ STORE DATA 
As :GET er ONE BIT LEFT 


; COUNT 
1$ {BRANCH IF 16 NOT DONE 
z*FILL LEFT ROTATING ONE INTO WRFROM+<65.*2> 


#1,R0 
RO, (R1)+ 
RO 


2$ 
(SP)+,R1 ;:POP STACK INTO R1 


z*FILL REST OF DATA 

JSR RO, @4CLAREA :CLEAR 174. WORDS, FROM WRFROM+<82.*2> 

WRF ROM+<82. *2> : STARTING FROM WRFROM+<82,.*2> 

174. 7174. WORDS 

377 sFILL WITH 377 

JSR RO, @A4CLAREA 7 CLEAR a repay FROM WRFROM+<256. *2> 

WRF ROM+<256. *2> some ARTING FROM WRFROM+<256. *2> 
3 P 


2 
<5*2000>!<7*40>!5 FILL WITH <5*2000>!<7*40>!5 


3*FILL THE WRITE CHECK HEADER AND DATA 
JSR RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 5 
6 SECTOR 4 
7 ; TRACK 7 
-256. SWORD COUNT = 256. 
WRF ROM [BUS ADDRESS 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
WRCHEK :GET READY TO DO A WRCHEK 


143166 BIS APSEL ,@RHCS1 ;SET PORT B 
; THAT IS UNIBUS B 


3*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 
JSR RO, @#SAVER : SAVE REGISTERS 
RHWC IS THE FIRST REGISTER SAVED 
= STARTING ADDRESS OF WHERE 
NUMBER OF REGISTERS 


PC ,@ACHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 





“oa 
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037130 
037134 


037136 


037144 


037254 


037256 


037322 
037324 


104401 
000000 


013777 


013746 


037330 
104076 


CTLRI 
13:05 


066720 
004606 


002436 
002101 
143120 


002436 
006101 
001124 


001126 
004600 
010500 
001124 
001126 
004600 
041360 
041360 


041360 


042444 


MACY11 30A(1052) 
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143122 
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WRITE CHECK DATA USING UNIBUS B 


TYPE ~CPHALT ; CANNOT CONTINUE TESTING 1F ANY OF 
HALT TOP 


MOV @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


;*SET PORT SELECT 

MOV @AWRCHEK,-(SP) ;GE1T READY TO MOVE COMMAND 
#GO!TE!PSEL, (SP) GET READY TO SET ‘GO’ AND 
(SP)+,@RHCS1 :GO WITH 
aR1 ,RO SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR RDY BIT TO SET 
[WAIT FOR RHCS1 REGISTER 
[WAIT FOR RDY BIT IN eed} REGISTER 
TALLOW 9860 MICRO SECOND 
;RDY MUST SET BETWEEN 
@AWRCHEK,-(SP) ;SAVE COMMAND 
MIE!DVA!PSEL!GO, (SP) zs INCLUDE IE!DVA!PSEL!GO 
(SP),@4$GDDAT ;SAVE FOR PRINTOUT 
(SP)+,RO DURING ABOVE OPERATION ONLY IE!DVA!PSEL!GO 
67$ ;BRANCH IF GOOD 
RO, @#$BDDAT DATA 
R1,@4REGADR SFAILING REGISTER RHCS1 
21 ;DURING ABOVE OPERATION ON 
#MOL ! DPR! VV,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
(SP) ,a#$GDDAT  ;SAVE FOR PRINTOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL ! DPR! VV 
69$ ;BRANCH IF GOOD 
R5 ,@#$BDDAT BAD DATA 
R3,@4REGADR FAILING REGISTER RHDS1 
63 ;DURING ABOVE OPERATION ONLY 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @4F ILLRE MOV 0 INTO SAVED RHwWC 
RHWC ;SAVED REGISTER TO CHANGE 


0 DATA 

JSR RO, a@4F ILLRE [MOV WRFROM+<256.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 

WRF ROM+<256. *2> ;DATA 


RO, a4F ILLRE sMOV 3405 INTO SAVED RHDST 
: SAVED REGISTER TO CHANGE 


:*COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
i *WITH REGISTER AFTER COMMAND 
RO, a4COMREG : COMPARE SAVED REGISTERS WITH 

GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
:18. REGISTERS TO BE COMPARED 
;RETURN TO 8$ ON ERROR 
RETURN TO 9$ ON NO ERROR 


WHILE USING UNIBUS B 
WRITE CHECK CAUSED 





SEQ 0166 





CZ 
C2 


CZRJICO, RPO4/S/6 FCTNL CTLR1 
CZRJIC.P11 


Lala 037326 000207 


037330 


27-JUL=78 13:05 


L 13 
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147 WRITE CHECK DATA USING UNIBUS B 


RTS PC ;AN IMPROPER REGISTER 
; CHANGE 
;GOOD DATA GIVES WHAT 
;SHOULD BE THERE 
sRECEIVED DATA GIVES WHAT 
;WAS THERE AFTER COMMANDS 


9$: 
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037330 
hie} 


037410 


037412 


037432 


037434 
037440 
037444 


037446 
037454 


037460 
037464 


037470 


037502 
037506 
037510 


004037 
002470 


000400 
177777 
004037 
000000 

000 

000 
177400 


002470 
000000 


010000 
002442 


004737 
104401 
000000 


(13777 
013746 


052716 
012677 


041536 
066720 
004606 
002442 


000101 
142610 


041624 


MACY11 30A(1052) 
147 


142612 


TST50: 
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WRITE CHECK DATA USING UNIBUS B 


@4NOPUSH 31S THIS A 220 START ? 
1$ ;SKIP_ THIS TEST IF SO 
a442 ;MONITOR (ACT 11) RETURN ADDRESS ? 
1$ 3SKIP_THIS TEST 

@4$SPASS FIRST PASS ? 

1$ [SKIP THIS TEST IF NOT 
2$ S CONTINUE WITH THIS TEST 
TST31 og JUMP TO NEXT TEST 

MSTACK, SP RESET STACK 

#50 ,a4TSTNM SAVE TEST NUMBER 

PC ,@#CLDISK SET R1-RHCS1, R2=-RHCS2 


:*FILL SECTOR 0, TRACK 0, CYL O WITH ONES 
;*FILL WRITE FROM BUFFER 
JSR RO,@#CLAREA CLEAR 256. WORDS, FROM WRFROM 
WRF ROM ZSTARTING FROM WRF ROM 
256. 3256. WORDS 
-1 sFILL WITH -1 


7*FILL WRITE DATA COMMAND 

JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 0 

0 :SECTOR 0 

0 TRACK 0 

-256. WORD COUNT = 256. 

WRF ROM BUS ADDRESS 

0 3;DO NOT INHIBIT BUS ADDRESS INCREMENT 

FMT22 716 BITS PER WORD FORMAT 

WRIDAT :GET READY TO DO A WRIDAT 


JSR PC ,@#CHECKT CHECK DVA,RDY.MOL,DPR,DRY.VV = 1 
so ~CPHALT : CANNOT CONTINUE TESTING IF ANY OF 
L : 


MOV @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


MOV @AWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
BIS #GO!IE, (SP) ;GET he TO SET 'GO* AND 
MOV (SP)+,@RHCS1 GO WITH 


:*TIME IS NOT CRITICAL 
WAT zWAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 25000 MICRO SECONDS 

RDY MUST SET BETWEEN 


;*SAVE REGISTERS FOR COMPARISON AFTER WRITE PROTECT 
;*BUTTON HAS BEEN HIT 


JSR RO, @#SAVER on REGISTERS 
RHWC RHWC IS THE FIRST REGISTER SAVED 
SAVERE [STARTING ADDRESS OF WHERE 


SEQ 0168 
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037512 18. NUMBER OF REGISTERS 


037514 037522 TYPE ,68$ zs TYPE ASCIZ STRING 

375 7 BR 67$ 3:GET OVER THE ASCIZ 
004716 robes @4UNIT = (SP) GET UNIT UNDER TEST 

037554 TYPE .70$ zs TYPE ASCIZ STRING 

BR 69$ 3;GET OVER THE ASCIZ 


HALT 
law | ONLY REGISTER THAT SHOULD CHANGE IS RHDS1 - BIT #11 
rr 


JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
RHDS1 CHANGE RHDS1 REGISTER 
1 :1 BIT/BITS TO A; CHANGED 
1 NEW VALUE OF WRL IS 1 
037674 WRL [CHANGE WRL BIT 


z*COMPARE ALL REGISTERS BEFORE WRITE WAS LOCKED 
> *OUT “ Ha Ey. VALUES AFTER WRITE WAS LOCKED OUT 
037676 042444 JS OMREG sCOMPARE SAVED REGISTERS WITH 
;GOOD DATA SAVED IN ‘SAVERE* 
TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 
[RETURN TO 3$ ON ERROR 
037712 037720 RETURN TO 4$ ON NO ERROR 


037714 104041 $ ERROR 41 z;LOCKING OUT WRITE BY 


037716 000207 RTS PC ;WRITE LOCK BUTTON CAUSED 
; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER WRITE 
WAS LOCKED OUT BY BUTTON 


7*NOW A WRITE WILL BE ATTEMPTED WITH WRITE LOCKED 
:*OUT BY BUTTON 
7*FILL WRITE FROM BUFFER WITH 377 


037720 013737 037720 001110 4$: MOV 44S ,QASLPERR ;SCOPE LOOP STARTS FROM HERE 


037726 041456 PC ,a@#CLDISK SET R1-RHCS1, R2-RHCS2 
041326 RO, @4CLAREA CLEAR 256. WORDS, FROM WRFROM 
STARTING FROM WRFROM 


. z . WORDS 
037742 sFILL WITH 377 


;*TRY A ONE coe WRITE 
037744 SR RO, @ARUN ;SETUP TO RUN FOR DATA COMMAND 
000000 0 CYLINDER 0 
SECTOR 0 
; TRACK 0 
:WORD COUNT = 1. 
[BUS ADDRESS 
00000 0 ;DO NOT INHIBIT we — INCREMENT 
037762 316 BITS PER WORD FORMA 
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WRIDAT GET READY TO DO A WRIDAT 


z*SAVE REGISTERS 

JSR RO, @#SAVER 7 SAVE REGISTERS 

RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 

18. ZNUMBER OF REGISTERS 


013777 004606 MOV @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002442 MOV @AWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
052716 000101 BIS #GO!IE, (SP) GET READY TO SET ‘GO" AND 
012677 142256 MOV (SP)+,@RHCS1 GO WITH 


;*TIME IS NOT CRITICAL 
WAT ;WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
rare FOR RDY BIT IN RHCS1 REGISTER 
Ow 25000 MICRO SECONDS 
RDY OMUST SET BETWEEN 


z*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


142232 @RHWC,@#SAVERE ;RHWC IS UNPREDICTABLE 
@RHBA. A#SAVERE +2:RHBA IS UNPREDICTABLE 
@RHCS2,-(SP) “GET RHCS2 


Vv 
(SP) +, @#SAVERE+4; SET OR IR AS REQUIRED 
RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
7CHANGE RHCS1 REGISTER 
ie ers TO DP a eee 


iC 
RO, @4F ILLRE zMOV_1 INTO SAVED RHDST 
ae REGISTER TO CHANGE 


:DAT 

RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
[CHANGE RHER1 REGISTER 
31 BIT/BITS TO BE CHANGED 
NEW VALUE OF WLE IS 1 
CHANGE WLE BIT 

RO, @4#CHREG [CHANGE BITS IN SAVED REGISTER 
[CHANGE RHDS1 REGISTER 
:2 BIT/BITS TO BE CHANG 
NEW VALUE OF i. Is 1 


s¢ ATA BI 
[NEW VALUE OF = IS 1 
040000 ERR ; CHANGE ERR BIT 
053737 004740 BIS @#ATTENT , @ASAVERE +24 SET APPROPRIATE ‘ATA’ BITS 


z*COMPARE REGISTERS BEFORE WRITE WAS ATTEMPTED 
7*WITH REGISTERS AFTER ATTEMPT 


JSR RO, @#COMREG COMPARE SAVED REGISTERS WITH 
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041456 


041326 


004037 
002470 


000400 
177777 


004037 
000000 
000 
000 
177400 
003534 
000000 
014000 
002446 
013777 
013746 
052716 
012677 141776 
104413 
002300 
000200 
001614 
001507 
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142000 
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WRITE PROTECT OPERATION 


;GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC* 
318. REGISTERS TO BE COMPARED 
RETURN TO 5$ ON ERROR 

;RETURN TO 6$ ON NO ERROR 


ATTEMPTING TO WRITE WITH 
WRITE LOCKED OUT 
: CAUSED IMPROPER REGISTER 


HANGE 
+ GOOD DATA GIVES WHAT SHOULD 


;BE THERE 
;RECEIVED DATA sive WHAT WAS 
; THERE AFTER ATTEMP 


7*NOW A READ WILL BE DONE TO DETERMIN THAT 
;*READS CAN BE DONE WITH WRITE LOCKED OUT AND 
;*THAT NO DATA ON DISK GOT CHANGED, BUT FIRST CLEAR ERROR 


ERROR 42 
RTS PC 


JSR PC ,@#CLDISK SET R1-RHCS1, R2-RHCS2 


a READ a BUFFER WITH 0 

JSR RO, @#CLAREA CLEAR 256. WORDS, at RE INTO 
REINTO + STARTING FROM REIN 

256. WORDS 

IFILL WITH 0 

z*FILL WRITE Ay BUFFER WITH EXPECTED DATA FROM READ 

JSR RO, @#CLAREA ;CLEAR 256. WORDS, FROM WRFROM 
WRF ROM TSTARTING FROM WRFROM 

256. 7256. WORDS 

-1 sFILL WITH =1 


z*FILL COMMAND 
JSR RO, @4#RUN 


0 

0 

0 
-256. 
REINTO 


0 
ECI!FMT22 
READAT 


@ARPSVEC ,A@RPVEC 


SETUP TO FOR DATA COMMAND 


ADDR ESS” 

:D0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 

;GET READY TO DO A READAT 


;SET RPO4 VECTOR ADDRESS 


@AREADAT,~-(SP) ;GET READY TO MOVE COMMAND 
#GO!IE, (SP) GET READY TO SET ‘GO* AND 
(SP)+,@RHCS1 :GO WITH 


;WAIT FOR RDY BIT TO SET 

WAIT 4 RHCS1 REGISTER 

7 WA OR RDY BIT IN RHCS1 REGISTER 
SALLOW 9080 MICRO SECONDS 

zRDY MUST SET BETWEEN 


SEQ 0171 
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27-JUL-78 1 WRITE PROTECT OPERATION 


;*COMPARE READ DATA 
OMPAR 


COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM WRF ROM 
sTEST DATA STARTS FROM REINTO 
WORDS TO BE COMPARED 
?RE TURN TO 7$ ON ERROR 
;RETURN TO 8$ ON NO ERROR 


WRITING WITH WRITE 
zLOCKED CHANGED DISK 
;GOOD DATA GIVES WHAT WAS 


;ON DISK BEFORE WRITE WITH 


‘WRITE LOCK WAS ATTEPTED 


;RECEIVED DATA GIVES WHAT 
WAS READ BACK AFTER WRITE 
“WITH WRITE LOCKED WAS ATTEPTED 


7*SAVE REGISTERS FOR COMPARISON AFTER WRITE LOCK HAS BEEN 


; *UNLOCKED 


RO, @#SAVER 


-65$ 
64$ 
@AUNIT ,- (SP) 


-67$ 
66$ 


: SAVE REGISTERS 

;RHWC IS THE FIRST REGISTER SAVED 
TSTARTING ADDRESS OF WHERE 
[NUMBER OF REGISTERS 


22 TYPE ASCIZ STRING 
3GET OVER THE ASCIZ 
[GET UNIT UNDER TEST 


zz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


Hy ONL Y ies ber y SHOULD CHANGE IS WRL-BIT #11 IN RHDS1 


RO, 


CHANGE BITS IN SAVED REGISTER 
[CHANGE RHDS1 REGISTER 

31 BIT/BITS TO BE CHANGED 
sNEW VALUE OF WRL IS 0 

CHANGE WRL BIT 


:*COMPARE ALL REGISTERS BEFORE WRITE LOCK WAS UNLOCKED 
7*WITH REGISTERS AFTER WRITE WAS UNLOCKED 


042444 JSR 
SAVERE 
WC 


18. 

9$ 

10$ 
104044 ; ERROR 44 
000207 RTS PC 


RO, @#COMREG 


= COMPARE SAVED se ghee WITH 
*SAVERE * 


118. at TO BE COMPARED 
[RETURN TO 9$ ON ERROR 
;RETURN TO 10$ ON NO ERROR 


UNLOCKING WRITES BY WRITE 
;LOCK BUTTON CAUSED AN ERROR 








any 
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; GOOD alle GIVES WHAT SHOULD 


SBE THER 

RECEIVED DATA GIVES WHAT WAS 

; THERE AFTER WRITES WERE 

UNLOCKED 

ON THIS ERROR NO LOOPING IS RECOMMENDED 
: JUST A HALT ON ERROR WILL DO THE SAME 
THING AS ONLY THE REGISTERS ARE READ 


7877 
7878 040546 012737 177777 047274 108: MOV #-1,Q4PRITEM “CLEAR PREVIOUS ITEM NUMBER 





on 


CZRJICO, RPOG/S/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL-78 
8 13:05 T50 WRITE PROTECT OPERATION 


CZRJIC.P11 27=JUL=7 


000004 TST51: SCOPE 
012737 000001 001212 MOV 
012737 000000 177776 MOV 


TYPE 
BR 


047274 3$: 


004716 
010034 


#1 ,S$TIMES 
#0,PS 


-65$ 

64$ 

@AUNIT ,- (SP) 
,67$ 

66$ 

@FSERTTL ,-(SP) 


@4SPASS 
, SENDMG 
@4SPASS ,- (SP) 


, SENULL 
@ATST4 


#-1 ,QAPRITEM 
@4NOUNI TS 


(R1)+,RO 
2$ 


1$ 
(R1) ,@AUNIT 
@ATST4 


F 14 
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SEQ 0174 


3;D0 1 ITERATION 
;REINSTATE PS TO 0 


iz TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
;GET READY TO TYPE UNIT NUMBER 


zTYPE ASCIZ STRING 
3iGET OVER THE ASCIZ 
;GET READY TO TYPE NUMBER OF ERRORS 


CLEAR TOTAL NUMBER OF ERRORS 
NUMBER 


ZCHECK NEXT DRIVE IF SO 
ZCONTINUE WITH THIS ONE IF NOT 


WPE. EN PASS oe 
TYPE "END PASS # 


7; JUMP TEST 4 


CLEAR PREVIOUS ITEM NUMBER 
NO. OF UNITS PRESENT 

BRANCH IF ALL DRIVES COMPLETE 
UNIT UNDER TEST 

; TABLE POINTER 

iTS a ae TESTED ? 


“BRANCH IF NO 
MAKE THIS NEXT UNIT 
STEST THE NEXT DRIVE 





on 


45/6 FCTNL CILR1 
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051501 
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001100 


020123 


D 
SEOPCT: .WORD 


SENDCT: . 


$GET42: 


SENDAD : 


$RTNAD: 
377 000 $ENULL: 
042412 042116 $ENDMG: 


G 14 
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-SBTTL 
— ** SUBROUTINES ** 
L 


STSTNM 
STIMES 


$PASS 
#100000, $PASS 
(PC)+ 

$DOAGN 

, Trt senere 


, SENDMG 
$PASS ,~(SP) 
, SENULL 
a#42,RO 
$DOAGN 


PC, (RO) 


a(PC)+ 
yr 


YTE 
“ASCIZ <iSocio>/EMD pass a/ 


73ZERO THE TEST NUMBER 

5 THE NUMBER OF ITERATIONS 
; INCREMENT THE PASS NUMBER 
::DON'T ALLOW A NEG. NUMBER 


7-YES 
7 RESTORE COUNTER 


:TYPE “END PASS #°° 

[SAVE SPASS FOR TYPEOUT 
$360 TYPE=-DECIMAL ASCII WITH SIGN 
3;TYPE A NULL CHARACTER 


7 RETURN 
NULL CHARACTER STRING 





C 
C. 
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-SBTTL JAM CURRENT CYLINDER ROUTINE 


;*THIS ROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER = ‘RHCC' 
:*BY GIVING A ‘SEEK’ COMMAND FOLLOWED BY AN INIT WHICH WILL LOAD 
*"RHCC' WITH THE DESIRED CYLINDER VALUE. THE ROUTINE THEN CHECKS 
; THAT THE LOADED VALUE IS CORRECT. 


CALL IS: 
is JSR RO, Q4MAKECYL 
3° xC sDESIRED VALUE OF CURRENT CYLINDER 


MAKECYL: 
010546 MO RS,-(SP) ;;PUSH R5 ON STACK 

041512 RO, @4PCJUSR PC OF JSR+4 

000004 #4, QAPCJISR sSAVE PC OF JSR 
(RO) +,R5 GETTING READY TO FILL DESIRED CYLINDER 

141142 RS,@RHCA #FILL DESIRED CYLINDER REGISTER 
@RHDST MAKE SURE DESIRED SECTOR TRACK iS NOT ILLEGAL 
@4SEECOM,@RHCS1 FILL SEEK COMMAND 
ADMD , ARHMR 


Mr 


SET DIAGNOSTIC MODE 


043370 PC ,a#PUTREG ; TAKE A REGISTER SNAPSHOT 
040000 as! ; CHECK FOR COMPOSITE ERROR 


SNOT = 1, A-OK 
103 “REGISTER CONTENTS INCORRECT BEFORE A 
DIAGNOSTIC SEEK 


000001 141064 : #G0,@RHCS1 ; ISSUE 'GO* TO SEEK COMMAND 
zALLOW TIME FOR SEEK 70 HANG UP 


RGRS VKSRAFSRS 


RRRN RRRRKLLL 
MV] soso 


;ALLOW TIME FOR SEEK TO HANG UP 


043370 PC ,@4#rUTREG ; TAKE A 2ND REGISTER SNAPSHOT 
040000 002404 #ERR,@ALS1 ; CHECK -. ERRORS 
3$ :NOT = 1, A-OK 
104 [REGISTER CONTENTS INCORRECT AFTER 
ZA DIAGNOSTIC SEEK 


041456 : PC ,@#CLDISK :GIVE INIT TO FORCE THE TRANSFER 
141062 001126 @RHCC, oe aa TEST DATA 
001126 , a#$BDD COMPARE CURRENT CYLINDER 
1$ BRANCH IF —. 
001124 R5 ,@#$GDDAT :GOOD VALUE OF RHCC 
002334 004600 @ARHCC,@#REGADR :FAILING REGISTER ADDRESS 
77 CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER 
[REGISTER AFTER A SEEK AND AN INIT 


012605 (SP) +,R5 ::POP STACK INTO RS 
000200 RO 


04 
04 
04 
04 
04 
04 
04 
0412 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 


1 
1 
: 
12 
, 
12 
1 
1 
1 
1 
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3*THIS FILLS MEMORY WI7H GIVEN DATA 
3 *USED A seit FOR HEADER INFORMATION 


> *CAL 
RO, @4F LHEAD FILL HEADER 
[LOCATION WHERE SAVED 
NUMBER OF WORDS 
DATA REPEATED XN TIMES 
;DATA REPEATED XN TIMES 


Be Be Be Be Be Be Be Be Be 


ae ep epee ee 


010146 MO R1,-(SP) : PUSH R1 ON STACK 
PUSH R2 ON STACK 
RI HAS ADDRESS OF WHERE TO SAVE 
(RO) +.R2 zR2 HAS NUMBER OF WORDS 


:*NOW FILL DATA 


(RO)+,(R1)+ ZSAVE DATA 

R2 ;DECREMENT COUNT 

1$ ;BRANCH IF INCOMPLETE 
(SP) +,R2 7zPOP STACK INTO R2 
Fs 7zPOP STACK INTO R1 


7*THIS CLEARS ANY BLOCK OF MEMORY. 
;*FILLING IT WITH ANY DATA 


“*CALL IS 

JSR RO, -@ACLAREA 
N ‘NUMBER OF WORDS 
D “DATA TO BE FILLED 
teRI WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
S*R2 WILL HAVE NUMBER OF WORDS 
‘*R3 WILL HAVE DATA 


CLAREA: 


-* 
-* 
-* 
-* 


R1,-(SP) 77PUSH R1 ON STACK 
77;PUSH R2 ON STACK 
7 PUSH R3 ON STACK 


— 
MOVE Fates 


:BRANCH IF NOT COMPLETE 
;POP STACK INTO R3 
. POP STACK INTO R2 
(SP)+,R1 3;POP STACK INTO R1 
RO ;RETURN TO MAIN PROGRAM 


RRRRRRRRRRRRES 
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SEQ 0178 


:*THIS IS A SUBROUTINE TO FILL SAVED REGISTER LOCATION 
3 *WITH Nig VALUE 


JSR RO, @4F ILLRE 
x 


R1,-(SP) 


RHWC ,R1 
R2,SAVERE(R1) 
(SP)+,R2 
(SP)+,R1 
RO 


REGISTER NAME 
DATA 


: PUSH R1 ON STACK 
PUSH R2 ON 


STACK 
: ADDRESS OF ADDRESS OF REGISTER 


7 OF SET 

SDATA IS MOVED IN 
3sPOP STACK INTO R2 
3zPOP STACK INTO R1 


:RETURN TO MAIN PROGRAM 





C2 
C2 
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3*THIS SUBROUTINE SETS UP FOR SEARCH 
;*CALL IS 

ze JSR RO, @#SRCH 

; C CYLINDER 
+ BYTE S ; SECTOR 
3*.BYTE T ; TRACK 


012077 140700 SRCH: MOV (RO) +,@RHCA SET DESIRED CYLINDER ADDRESS 
012077 140666 MOV (RO) +, @RHDST SET DESIRED SECTOR/TRACK ADDRESS 
013777 002434 140654 MOV @4SERCH,@RHCS1 ;GET READY FOR SEARCH 

WITH 30 IN RHCS1 
000200 RO 


3*THIS SUBROUTINE SETS UP FOR SEEK COMMANDS 


:*CALL IS 
; JSR RO, @4#SEEKCY 
: CYLINDER 


041426 012077 140660 : (RO) + ,@RHCA 3SET DESIRED CYLINDER ADDRESS 
a 013777 002452 140640 MO @ASEECOM,@RHCS1 ;MOV 4 INTO RHCS1 


440 000200 , RO ;RETURN TO MAIN PROGRAM 
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3*THIS SUBROUTINE SETS UP FOR OFFSET COMMANDS 
:*CALL IS 

:* JSR RO, @40F SET 

39 0 MICRO INCHES OF SET 


052077 140642 OF SET: (RO) + ,@RHOF SET OFSET REGISTER 
013777 002454 MO @4OFSETC,@RHCS1 ;MOV14 INTO RHCS1 
000200 RO RETURN TO MAIN PROGRAM 


013701 CLDISK: @ARHCS1, 7R1 WILL BE CONTROL AND STATUS1 
MO @ARHCS2, zR2 WILL BE CONTROL AND STATUS2 
@4RHDS1, 3R3 WILL BE DISK STATUS REGISTER) 
002302 @4RHER1, 7R4 WILL BE ERROR REGISTER #1 


000040 ACLR,@R2 ;CLEAR ALL REG. 
004716 ae ee ;REINSTATE UNIT NO. 


0 
041510 PC 


;CLEAR FUNCTION BITS 





C2 
C2 
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8134 
8135 
8139 
8138 :*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1 
8139 ‘*AND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY 
8140 ‘* (DRY) IN RHDS1 = 1 
142 :*IT ALSO CHECKS THAT THERE ARE NO BITS STUCK AT 1 IN RHDS1 
8144 
8145 041512 000000 PCJSR: 0 :PC OF JSR 
8147 041514 011637 041512 CHECK: MOV (SP), @#PCJSR SAVE PC OF JSR+4 
8148 041520 162737 000004 041512 SUB #4, a#PCISR ‘GET PC OF JSR 
8149 041526 011346 MOV aR3,-(SP) *GET RHDS1 
8150 041530 052716 000100 BIS #VV, (SP) “DONT CHECK VV BIT 
8151 041534 000406 BR CHECKC ‘GOTO COMMON CHECK ROUTINE 
8153 041536 011637 041512 CHECKT: MOV (SP),@4PCJSR _; SAVE apt OF jasre 
8154 041542 162737 000004 041512 SUB #4, aAPCJSR ‘GET PC OF 
8155 041550 011346 MOV ar3,-(SP) :GET RHDS1 2 DO VV CHECK AT 3$ 
8157 041552 011146 CHECKC: MOV -(SP) :GET CS1 
8158 041554 042716 173577 BIC artsy), (SP) ‘CLEAR UNWANTED BITS 
8159 041560 022726 004200 CMP #DVA'RDY,<SP)+ =RHCS1 SHOULD HAVE DEVICE AVAILABLE 
8160 SAND BE READY 
8161 041564 001403 BEQ 3$ “BRANCH IF IT DOES 
8162 041566 011137 001122 MOV @R1,a4$BDADR  =:BAD DATA REGISTER (RHCS1) 
8163 041572 104061 ERROR 61 =RHCS1 DID NOT HAVE DEVICE 
8164 SAVAILABLE RIGHT AT THE START 
Ay ALL OTHER BITS SHOULD BE 0 
8167 041574 042716 102000 3$: BIC HATA!LBT,(SP) | ;CLEAR UNWANTED BITS 
8168 041600 022726 010700 CMP #MOL 'DPR'DRY!VV.(SP)+ ;RHDS1 SHOULD HAVE THESE SET 
8169 041604 001404 BEQ 7$ :BRANCH IF GOOD 
8170 041606 011337 001122 MOV @R3,a4$BDADR  =:BAD DATA IN REGISTER (RHDS1) 
8171 041612 104062 ERROR 62 ‘RHDS1 HAS SOME BITS OTHER 
8172 ‘THAN MOL, DRY, DPR,VV SET 
8173 ‘ALL OTHER BITS SHOULD BE 0 
8174 041614 000207 RTS PC “RETURN TO TEST AND HALT/CONT INUE 
8175 “DEPENDING ON WHETHER THIS IS A 
8176 :" FATAL’ ERROR 
8178 041616 062716 000006 7$: ADD #6, (SP) sADJUST STACK TO JUMP OVER HALT IN TEST 
8179 041622 000207 RTS PC “RETURN TO THE TEST AND CONTINUE 


an 
a a 
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;*THIS IS A SUBROUTINE TO SAVE REGISTERS 
;*IN THE REGISTER TABLE TO ANY LOCATION 
: * THE CALL IS 

JSR RO, @#SAVER 

ROM 


:T0 

“NUMBER OF WORDS SAVED 
>*F MUST ALWAYS BE RHCS1 
:*T MUST ALWAYS BE SAVRE 


SAVER: 
010146 MOV R1,-(SP) ;zPUSH R1 ON STACK 
3 ¢PUSH Re ON STACK 
co R3 ON STACK 


370 
7 NUMBER 

a(R1)+, (R2)+ ZSAVE REGISTER CONTENTS 
>; COUNT 


R3 
1$ :BRANCH IF NOT DONE 
(SP)+,R3 ;POP STACK INTO R3 
(SP)+,R2 : SPOP STACK INTO R2 
ele ad 7zPOP STACK INTO R1 
R 


;*WHEN AN EVENT IS TO BE HE oy THE RPO4 VECTORS TO ‘TIME 1°° 
:*PRIORITY OF PROCESS OR IS 4 

[*PRIORITY OF TRAPS MUST BE 6 

:*PRIORITY OF RPO4 INTERRUPTS IS 7 


005077 140462 TIME1: CLR @PCLCSR :STOP THE CLOCK 
140462 041714 MO @PCLCTR,@AWAITTM ;GET TIME ON CLOCK 
140440 : @RHCC , @#F INACC GET CURRENT CYLINDER 
140434 004662 @RHLA, aa INALA >GET LOOK AHEAD 
;RETURN TO WAIT P OR WAIT.T 


*THIS IS A WAIT LOOP WHEN AN EVENT IS TO BE TIMED 
i*THE CALL IS 
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: ABSOLUTE yt ADDRESS 

[BIT WAITED 

: TIME ALLOWED OGIVEN IN 10 MICROSEC 
STOLERANCE PLUS/MINUS IN 10 MICROSEC 


aR1-WILL HAVE TIME ALLOWED IN 10 MICRO SECONDS 

7*R2-WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS 
:*MINIMUM TIME THAT CAN BE MEASURED IS ABOUT 12 MICRO SECONDS 
:*FOR THE SLOWEST PROCESSOR 


PC 
WAIT ON REGISTER ADDRESS 
IT BIT 


;WA 
[WAITED TIME 
@AWAITTM ;CLEAR WAITED TIME 
@PCLBUF ;CLEAR COUNT SET BUFFER 
#60!BIT4, -@PCLCSR + COUNT UP, 100 - pe START CLOCK 


;;PUSH R3 ON STACK 

:RO HAS ADDRESS OF Ay LOCATION 
3 WAITPC HAS WAT PC + 2 

- @AWAITPC SWAT PC IS IN WAITPC 

@(RO) +, a#WAI TRE :WAIT ON REGISTER ADDRESS 

(RO) +, aaWAl TBT BIT 

(RO)+,R1 

(RO)+,R2 

RO,10(SP) ?RESTORE RETURN ON STACK 


;*THIS SECTION WAITS FOR ‘BIT, 4 TWO COUNT DOWNS 
MOV @a4T IMCNT ,R3 ;R3 1S A TEMPORARY COUNTER 
177674 : — TBT, @WAI TRE” :IS a BIT THERE 


H IF YES 
R3 = COUNT IF REQUIRED BIT NOT THERE 


1$ 

@4T IMCNT ,R3 ; TEMPORARY COUNTER 
177654 3 @AWAITBT ,AWAITRE ;1S REQUIRED BIT THERE 

4$ BRANCH YES 


HIF 
R3 COUNT IF REQUIRED BIT NOT THERE 


BNE 2s 
001126 Q@WAITRE, mee oye: CONTENTS FOR TYPEOUT 
140222 suf: »@RHCS1 ;DID AN Ox ets OCCUR 


BRANCH IF YE 
rs ty DID NOT INTERRUPT 
2 :RPOS INTERRUPTED BUT WAITED 


F ROM 177777 TO 0 
7$ ;OUT 


;*NOW TIME AND TOLERANCE WILL BE CHECKED 
017737 177614 001126 : MOV @WAITRE ,a@#SBDDAT ;REGISTER CONTENTS FOR TYPEOUT 
032777 000100 140174 BIT #IE,@RHCS1 ;DID ANY INTERRUPT OCCUR 
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8293 042104 001402 BEQ 5$ ;BRANCH IF YES 
8294 042106 104003 ERROR 3 ; INTERRUPT DID NOT OCCUR EVEN 
8295 AFTER ONE BNE ONE MOV 
8296 : OF THE WAITED ON BIT SETTING 
8297 042110 000414 BR 7$ T 
8298 042112 160201 5$: SUB R2,R1 “RI NOW HAS LOWER LIMIT OF TIME 
8299 042114 023701 041714 CMP QAWAITTM,R1 ;FOR GOOD RESULTS, WAITTM 
8300 sMUST BE GREATER OR EQUAL 
8301 TORI 
8302 042120 103002 BHIS 6$ ;BRANCH IF GOOD 
8303 042122 104004 ERROR 4 :BIT DID OCCUR BUT TIME 
8304 TAKEN IS BELOW LOWER LIMIT 
eone 042124 000406 BR 7$ “OUT 
8307 042126 060202 6$: ADD R2,R2 ;DOUBLE TOLERANCE 
8308 042130 060201 ADD R2,R1 *R1 NOW HAS UPPER ea a, TIME 
8309 042132 020137 041714 CMP R1,a4wAITTM z7FOR GOOD RESULTS, 
8310 [MUST - LESS OR EQUAL 10 R1 
8311 042136 103001 BHIS 7$ BRANCH F GOOD 
8312 042140 104004 ERROR 4 ‘BIT DID OCCUR BUT TIME TAKEN 
8313 31S ABOVE UPPER LIMIT 
8314 042142 7$: 
8315 042142 012603 MOV (SP)+,R3 77;POP STACK INTO R3 
8316 042144 012602 MOV (SP) +.R2 +: POP STACK INTO R2 
8317 042146 012601 MOV (SP)+,R1 7 zPOP STACK INTO R1 
8318 042150 012600 MOV (SP)+,RO ;zPOP STACK INTO RO 
at 042152 000002 RTI ;RETURN TO MAIN TEST 
8321 
8322 
8323 
8324 
8325 
8326 :*THIS IS A WAIT LOOP WHEN NO P-CLOCK IS AVAILABLE 
8327 7*NO TIMING IS DONE 
8328 :*CALL IS 
329 ;* WAT 
8330 7* A ; ABSOLUTE ee ADDRESS 
8331 :* B ;BIT WAITE) 
8332 :* TA zs TIME-NOT USED” HERE 
8333 : TO > TIME-NOT USED HERE 
8334 “AR3-IS A A TEMPORARY COUNTER 
Seas 042154 177777 TIMCNT: 177777 sCOUNT FOR WAIT LOOP 
8337 042156 WAIT.T: 
8338 042156 010046 MOV RO,-(SP) ;zPUSH RO ON | ay 
8339 042160 010346 MOV R3,-(SP) 77PUSH R3 ON STACK 
8340 042162 016600 000004 MOV 4(SP) ,RO fa — ADDRESS OF NEXT LOCATION 
8341 042166 010037 041706 MOV RO, aAWAI TPC T PC +2 IS IN WAITPC 
8342 042172 162737 000002 041706 SUB #2, aAWAI TPC WAT PC IS_IN WAITPC 
8343 042200 013037 041710 MOV a(RO)+, a4WAI TRE *WAIT ON ee ADDRESS 
8344 042204 012037 041712 MOV (RO)+,a#WAITBT :WAIT ON BIT 
8345 042210 022020 CMP (RO) +, (RO)+ :DUMP NEXT TWO WORDS-TA, TO 
8346 042212 010066 000004 MOV RO,4(SP) SRESTORE RETURN ON STACK 


8348 7*THIS HAS THE TWO COUNT DOWNS FROM 177777 
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AM CURRENT CYLINDER ROUTINE 


1$: 


@4TIMCNT RS ;R3 HAS TEMPORARY COUNT 
Q*WAITBT ,AWAITRE ;1S REQUIRED BIT THERE 
4$ ;BRANCH IF 


IF YES 
R3 COUNT IF REQUIRED BIT NOT THERE 


1$ 
@4T IMCNT ,R3 SECOND COUNT DOWN FROM 177777 
ee -QWAITRE: ; ;1S nus see BIT THERE 


IF YES 
R3 = COUNT IF REQUIRED BIT NOOT THERE 


2$ 
QWAITRE, ee REGISTER CONTENTS FOR TYPEOUT 
#IE,@RHCS1 :bID ANY INTERRUPT OCCUR 
3$ ;BRANCH IF YES 
1 zRPO4 DID NOT 2 apa 
BIT DID NOT OCCUR 
;0UT 
[RPO04 INTERRUPTED BUT 
[WAITED ON BIT DID NOT OCCUR 


EVEN AFTER TWO COUNT DOWNS 
: FROM 177777 T0 0 


;*BIT DID SET SO CHECK Fe INTERRUPT OCCURED 

NOP LLOW TIME FOR INTERRUPT 
BIT #1E,@RHCS1 DID ANY INTERRUPT OCCUR 
BEQ $ F YES 

V 


[BRANCH I 
QWAITRE ,a#$BDDAT :REGISTER CONTENTS FOR TYPEOUT 
z INTERRUPT DID NOT OCCUR 
SEVEN AFTER ONE BNE OF 
: THE WAITED ON BIT OCCURING 
5$ SOUT 


(SP)+,R3 3:POP STACK INTO R3 
(SP)+,RO 3zPOP STACK INTO RO 
RETURN TO MAIN TEST 


SEQ 0185 





ow 


rm 
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AM CURRENT CYLINDER ROUTINE 
;*THIS CHANGES REGISTER SAVED VALUE 


SEQ 0186 


010146 


8&4 
84 
8410 
8411 
8412 
8413 
8414 
8415 
8416 
8417 
8418 


010146 


012601 


:*CALL IS 
; = RO, @#CHREG 


papa t td TO BE CHANGED 
[NUMBER OF BITS TO BE CHANGED 
:NEW VALUE OF BIT MUST BE 0 ORT 
:POSITION OF BIT TO BE CHANGED 


WILL BE REPEATED N NUMBER OF TIMES 


R1,-(SP) 


2$ BRANCH IF 
yale - SAVERE (R1) deca te petae 


: PUSH R1 ON pe 
PUSH R2 ON STACK 
:R1 HAS ADDRESS OF ADDRESS OF REGISTER 
;R2 HAS NUMBER OF CHANGES 
:R1 HAS OFSET OF REQUIRED REGISTER 
:1S A BIC OR A BIS TO BE D 
A yey REQUIRED 


TO DECREMENT COUNT 


(RO)+,SAVERE(R1) ;CLEAR REQUIRED BIT 
R2 ;DECRE 


1$ 
(SP)+,R2 
(SP)+,R1 
RO 


MENT NUMBER OF CHANGES 
;BRANCH IF NOT COMPLETE 
;ZzPOP STACK INTO R2 
:zPOP STACK INTO R1 
;RETURN TO MAIN PROGRAM 


*THIS FILLS A BLOCK WITH INCREMENTAL DATA 


:*CALL IS 
; JSR RO, @4F ILL 


R1,-(SP) 


MOV RO)+,R4 
— DATA WILL BE FILLED 


R3,(R1)+ 
4, 
R2 

1$ 

(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 


7FROM 

;NUMBER OF WORDS 
zSTARTING VALUE OF DATA 
; INCREMENT DATA BY 


77PUSH R1 ON STACK 

77PUSH R2 ON STACK 

; sPUSH R3 ON STACK 

sPUSH R4 ON STACK 

RI HAS ADDRESS WHERE DATA IS TO GO 
tR2 HA HAS NUMBER OF WORDS TO BE FILLED 
sSTARTING VALUE OF DATA 

RG HAS INCREMENT 


FILL DAT 

:GET NEXT Be: OF DATA 
SDECREMENT COUNT 
BRANCH IF ALL NOT DONE 
:;POP STACK INTO R4 
7:POP STACK INTO R3 
;zPOP STACK INTO R2 
3:POP STACK INTO R1 
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RTS RO ;RETURN TO MAIN PROGRAM 


SEQ 0187 





aon 
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:*THIS IS _A SUBROUTINE TO COMPARE REGISTERS 
:*GOOD DATA IS ALREADY SAVED IN ‘SAVERE' 
;*TEST DATA IS IN THE REGISTERS 


RO, @#COMREG 
GOOD DATA 
SADDRESS OF ADDRESS TEST DATA 
eRE TURN FOR ERROR 
RG RETURN FOR GOOD COMPARISON 
“ON RETURN WITH ERROR ‘$GDDAT' HAS GOOD DATA, ‘SBDDAT' HAS BAD DATA 
;*"REGADR' HAS REGISTER ADDRESS 


COMREG: 
010146 MOV R1,~-(SP) 3;PUSH R1 ON STACK 


7 7PU 
:R1 HAS ADDRESS OF GOOD DATA 
:R2 HAS ADDRESS OF ADDRESS OF TEST DATA 
;R3 HAS NUMBER OF WORDS 
[R4 HAS RETURN FOR ERROR 
MOV (RO) ,RO [RO HAS RETURN ON NO ERROR 
z*NOW SAVE aiaaeka 


043370 PC ,@#PUTREG sSAVE REGISTERS 
004637 002401 anSAVERE+25, @#AS+1; ae UPPER BYTE OF RHAS SAME 
177776 #~-2 ,R5 ;PRESET RS TO -2 
:*NOW COMPARES WILL MADE 
000002 : ADD #2,R5 ; INCREMENT TO INDEX 
(Ri) +, (R2)+ [COMPARE REGISTER CONTENTS 
2$ BRANCH IF GOOD 
001124 -(R1) ,@4#$GDDAT ;SAVE GOOD DATA 
001126 -(R2) ,a@#$BDDAT ;SAVE BAD DATA 
002272 004600 RHWC (RS) ,aREGADR SAVE ADDRESS OF FAILING REGISTER 
PC,aR4 RETURN TO te PROGRAM 
[TO PRINT ERROR 
(R1)+,(R2)+ [UNDO -(R1) AND -(R2) FOR ERRORS 
136374 GET SWITCH SETTING 
177177 " [KEEP ONLY SWITCH 7 AND 8 
000200 #SWO7, (SP) + 31S 7 SET AND 8 DOWN 
3$ [BRANCH OUT IF YES 
: R3 ;ARE ALL COMPARES DONE 
001352 BN 1$ ;BRANCH IF NOT COMPLETE 


012605 (SP)+,R5 3zPOP STACK INTO R5S 
(SP)+,R4 3zPOP STACK INTO R4 
(SP)+,R3 : ¢POP STACK INTO R3 
(SP)+,R2 zPOP STACK INTO R2 
(SP)+,R1 >:POP STACK INTO R1 
000200 RO ;RETURN TO MAIN PROGRAM 
042576 000000 ‘ ‘ ; TEMP STORAGE 





amo 
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; *HERE ‘3 A gtiy +3 EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
;*ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 
;*PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST. 


:*WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 

;*THE PROGRAM GOES BACK TO CAN BE CHANGED. 

;*THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 

:*1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

3*2. LOOP ON ERROR SWITCH MUST BE SET 

;*3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

eo THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 

eTEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 

;*THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 

ssCOMES TO THE END OF THE TEST UNDER CONSIDERATION. 


«SAF TER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
:*NORMAL OPERATION WILL CONTINUE. 


TESTAD: 0 FIRST ADDRESS OF TEST 
OPERSEL : 


PS zMAKE PROCESSOR STATUS ZERO 
ot is tea CLEAR PREVIOUS ITEM NUMBER 


A 


64$ 

@4TSTNM,-(SP) GET READY TO TYPE TEST 
[NUMBER 

.67$ 7; TYPE ASCIZ STRING 


66$ 7;GET OVER THE ASCIZ 
@4$LPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 


oe s TYPE ASCIZ STRING 


::GET OVER THE ASCIZ 
:GET LPADR 
2a TYPE ASCIZ STRING 


SIGET OVER THE ASCIZ 


(SP)+,@M$LPERR ;GET LPERR 
@A4SLPADR ,- (SP) 
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s*THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
7*IN MEMORY LOCATIONS TAGED FROM ‘WC'' TO ‘EC2"’ 


2 *THIS IS DONE SO THAT COMPARES ARE DONE ype ie LOCATIONS 
;*AND NOT THE REGISTERS THEMSELVES. THIS WiL E 
> *ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS, DIFFRENT 


012077 


012077 


013077 
000200 


136656 


004716 


136674 
136622 


136606 


;*THIS IS A DATA COMMAND SETUP 
;*THE CALL IS 
® JSR 


* 
;*.BYTE 


Mrs te &e 


:* BYTE 


ee 


RO,-(SP) 
R1,-(SP) 
R2,~-(SP) 
#RHWC RO 


3;PUSH RO ON STACK 


TPUSH R1 ON STACK 


3;PUSH R2 ON STACK 
STARTING ADDRESS OF REG 
;STARTING ADDRESS OF a SAVED 


#WC RI 
prricc-RMWC#2/2, R2 ;NUMBER OF REG. INTO 
taal (R1)+ REG. 


10$ 
(SP)+,R2 
(SP)+,R1 
(SP) +,RO 
PC 


; RO, @#RUN 
S 

T 

—W 

B 


BAI 
FMT22!ECI!HCI 


(RO) +,@RHCA 


(RO) +, @RHOF 
@(RO)+,@RHCS1 
RO 


;SAVE HARDWARE 


3; POP STACK INTO R2 
:zPOP STACK INTO R1 
7ZzPOP STACK INTO RO 


SUBROUT INE 


CYLINDER 


ADDRESS 
“BUS ADDRESS INHIBIT 
SFMT22=1 =16 BIT WORDS 
SECI = ECC CORRECTION INHIBIT 
zsHCI = HEADER COMPARE INHIBIT 
bye ADDRESS 


CYLINDER 
: DESIRED SECTOR/TRACK 
D COUNT 
“BUS ADDRESS 
;GET UNIT NO 
2SET BUS ADDRESS INHIBIT 
UNIT NO AND BAI TO RHCS2 
“FORMAT, ECC INHIBIT, HEADER 
ZCOMPARE, IF THERE 


tpg IN RHCS1 
;RETURN TO MAIN PROGRAM 
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:*THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 


;*R1 HAS GOOD DATA BUFFER ADDRESS 

;*R2 HAS TEST DATA BUFFER ADDRESS 

;*RS HAS ADDRESS OF RETURN ON ERROR 

;*R3 HAS NUMBER OF WORDS TO BE COMPARED 

:*R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 


z*CALL IS: 
7° JSR RO, @#COMPAR 
G sADDRESS OF GOOD DATA 

zADDRESS OF TEST DATA 

NUMBER OF WORDS TO BE COMPARED 
RETURN ON ERROR 

RETURN ON NO ERROR 


010146 R1,-(SP) 77PUSH R1 ON STACK 
32PUSH R2 ON STACK 
7Z7PUSH R3 ON STACK 
7ZPUSH R4 ON STACK 
7zPUSH RS ON STACK 
z;ADDRESS OF GOOD DATA BUFFER 
zADDRESS OF TEST DATA BUFFER 
NO OF WORDS + BE COMPARED 
ZRETURN ON ERROR 
ZRETURN ON NO ERROR 
NO OF WORDS TO BE COMPARED 


R4 

004602 : P ;FOR ERROR WORD NO 
(R1)+,(R2)+ :COMPARE GOOD WITH TEST DATA 
2s BRANCH IF GOOD 


001124 -(R1) ,@#$GDDAT ;GOOD DATA 

001126 -(R2) ,aA#$BDDAT ; 

004602 R3,a#ERWORD ; WORD NO. 
PC,aR5 RETURN TO PRINT ERR 


OR 
(R1)+,(R2)+ ;UNDO -(R1) AND -(R2) FOR ERRORS 
135360 MO aSwWR, ) GET SWITCH SETTING 
177177 SKEEP ONLY ba -A a oe 8 
000200 #SWO7, (SP)+ 71S 7 SET AND 8 R 
3$ BRANCH OUT IF es. 


R3 ; COUNT 
1$ BRANCH IF ALL NOT DEVICE 


(SP)+,R5 3:POP STACK INTO R5 
(SP)+,R4 ::POP STACK INTO R4& 
(SP)+,R3 3zPOP STACK INTO R3 
(SP)+,R2 :zPOP STACK INTO R2 
(SP)+,R1 POP STACK INTO R1 
RO RETURN TO MAIN PROGRAM 
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CZRJIC.P11 


044576 


5/6 FCTNL CTLRI 
27=JUL-78 13:05 


043620 
002300 
043706 
045666 
002270 
000026 
044576 
002300 


000000 
002300 


044036 
002266 
044110 
cca 
002300 
044272 
002266 
044342 
044406 
044420 
044476 
000200 
044566 
005012 
044604 
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AM CURRENT CYLINDER ROUTINE 


SEQ 0192 


THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
ADDRESS FROM 176700 TO ANY TYPED VALUE 


,65$ 

64$ 
@FRHCS1,-(SP) 
,67$ 

66$ 

PC ,@4$TKINT 
#RHDB , RO 

#22. ,R1 

MADT IMO, a4 
* tdameanerds 
a@0(SP) 
@ARHCS1 ,aSP 
asP, (RO)+ 

R1 

2s 

-69$ 

68$ 
@ARPVEC ,- (SP) 


./1$ 
70$ 


(SP) +, @#RPVEC 
73$ 


72$ 
@ARHCS1 ,- (SP) 
.75$ 
74$ 
@4RPVEC ,~ (SP) 


82$ 
#RA,~(SP) 


,85$ 
84$ 
@4BEGIN 
,65$ 


23 TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
:GET READY TO TYPE OLD BASE 


73 TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
SINITIALIZE THE TTY KEYBOARD 


;GET STARTING ADDRESS OF REGISTERS 
NUMBER OF REGISTERS 

SET TRAP CATCHER TO CHECK THIS ADDRESS 
NEW ADDRESS? 

;NO, OLD ONE JUST RETYPED. 

:0K, SO ACCESS Mg NEW ADDRESS 

ZGET THE ADDRESS OFFSET 

SAND PLUG IT IN 

:ONE LESS REGISTER TO GO 

[BUT WE'RE NOT DONE YET. 


3sTYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 
GET READY TO TYPE OLD VECTOR ADDRESS 


zsTYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


;SETUP VECTOR ADDRESS 


3sTYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


3sTYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


23 TYPE ASCIZ STRING 


32 TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


7eTYPE ASCIZ STRING 
7;GET OVER THE ASCIZ 
RESTART, TO RUN ALL DRIVES 


32 TYPE ASCIZ STRING 





C2 
C2 
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8719 044602 000426 
044660 022626 
044662 000137 043612 
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BR 64$ 33GET OVER THE ASCIZ 
CMP (SP)+,.SP)+ RESTORE THE STACK 
JMP @ABASE CH AND DO THE WHOLE THING AGAIN! 


SEQ 0193 
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Hs og 


LR1 


044674 


044666 
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RPVECT: 

iz TYPE ASCIZ STRING 

;iGET OVER THE ASCIZ 
TYPE FROM PC 
;RESTORE TRAP RPO4 VECTOR 
; CHANGE TO CONTINUE 


C 
135340 , #RPVECT ,@RPVEC 


SEQ 0194 





On 
NN 
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CZRJIC.P1 


27-JUL-78 13:05 


040000 


000004 
044770 
177060 
000004 


000004 
0004600 
134124 
001103 
001115 
001000 
001110 


001103 
001212 


004000 
001100 


MACY11 g phe gt 


134200 


000004 


134132 
001102 


001103 
134074 
001106 


134042 


001104 


001104 
001212 


27-JUL-78 


SCOPE HANDLER ROUTINE 


1$: 


$XTSTIR: 


1$: 


SSVLAD: 


SOVER: 


SMXCNI: 


#B1T14,aSWR 
SOVER 


6$ 
QFERRVEC,-(SP) 
#5$ QE RRVEC 
awl 1770 


(SP) +, (SP)+ 
(SP) +; @MERRVEC 
#81708 .aSu 
aSWR,$TSTNM 
SOVER 

SERFLG 

3$ 
SERMAX , SERFLG 
#81709, aSwR 
4$ 

$LPERR, $LPADR 
SOVER 


SERFLG 
STIMES 
1$ 


#81111, aSWR 
1$ 


SPASS 
1$ 


SICNT 
$TIMES,SICNT 
SOVER 
#1,$1CNT 
SMXCNT ,STIMES 
STSTNM 


(SP) ,$LPADR 
(SP) ,SLPERR 
SESCAPE 

#1, SERMAX 

$1 STNM,a@DISPLAY 
SLPADR, (SP) 
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es TEST FOR CHANGE IN SOF T-SWR 
;LOOP ON PRESENT TEST? 
SYES IF SW14=1 
>; 1F RUNNING ON THE ‘OR'' TESTER CHANGE 
>> SAVE THE CONTENTS OF THE ERROR VECTOR 
37SET FOR TIMEOUT 
73 TIME OUT ON XOR? 
; ¢RESTORE THE ERROR VECTOR 
O TO THE NEXT TEST 
= CLEAR THE STACK AFTER A TIME OUT 
;eRESTORE THE ERROR VECTOR 
;zLOOP ON THE PRESENT TEST 
: «LOOP ON SPEC. TEST? 


IF NO 
:20N THE RIGHT TEST? 
BR IF YES 
 : HAS AN ERROR OCCURRED? 


:BR IF NO 
z2MAK — FOR THIS TEST OCCURRED? 


SWR<7:0> 


;;BR IF 
sean LOOP ADDRESS TO LAST SCOPE 


::ZERO THE ERROR FLAG 

::CLEAR THE NUMBER OF ITERATIONS TO MAKE 
;zESCAPE TO THE NEXT TEST 

¢¢ INHIBIT ITERATIONS? 


:BR IF YES 
ielF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
>: INCREMENT ITERATION COUNT 
+3 CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
: :REINITIALIZE THE ITERATION COUNTER 
;;SET NUMBER OF ITERATIONS TO DO 
; COUNT TEST NUMBERS 
SAVE SCOPE LOOP ADDRESS 
;:SAVE ERROR LOOP ADDRESS 
;zCLEAR THE ESCAPE FROM ERROR ADDRESS 
77ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
tit a TEST NUMBER 
:FUDGE RETURN ADDRESS 
yeh hee PS 
. NUMBER OF ITERATIONS 


SEQ 0195 





KTOVMPMOVWZ BK FCKTOVMOVWISBl FeKTOVMOOCPSB Fee TOVMM*OCMZ Br Fee TOVVM DF 
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: PUSH RO ON toate 

PUSH R2 ON STACK 

37PUSH R3 ON suace 

3;PUSH RS ON STACK 

22SET BLANK bar Ye AND SIGN 
HE INPUT NUMBER 


7:SET THE FIRST CHARACTER TO A BLANK 
7;CLEAR THE BCD NUMBER 

3:GET THE CONSTANT 

72FORM THIS BCD DIGIT 


;:BR IF DONE 
7; INCREASE THE BCD DIGIT BY 1 


z;ADD BACK THE CONSTANT 
ZiCHECK IF BCD DIGIT=0 
ALL THROUGH IF 0 
TISTILL DOING LEADING 0°S? 
:3BR IF YES 


6$ 77;BR IF NO 
177777 ‘ 72 YES--SET THE SIGN 
6$: #°0,R2 7 sMAKE THE BCD DIGIT ASCII 
MAKE IT A SPACE IF NOT ALREADY A DIGIT° 
: PUT THIS amen te IN THE OUTPUT BUFFER 


ASCII 
WAS THE isd. THE FIRST NON-ZERO? 


IS ::BR IF NO 
177777 177776 -1(SP) ,-2(R3) SIYES=-SET THE SIGN FOR TYPING 
9 (R3) 3zSET THE TERMINATOR 
(SP)+,R5 3zPOP STACK INTO R5 
(SP)+,R3 3:POP STACK INTO R3 
(SP)+,R2 3zPOP STACK INTO R2 
(SP)+,R1 3:POP STACK INTO R1 
(SP) +,RO : :POP _ INTO ie 
045416 TYPE THE 


, SDBLK 
000002 000004 2(SP) ,4(SP) +: ADJUST THE STACK 
(SP)+, (SP) 
: ;RETURN TO USER 
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001157 


MACY11 30A(1052) 
TYPE ROUTI 


$TYPE: 


1$: 
23: 


BR 
$STYPEC: 


000002 1$: 


NCB 
SCHARCNT : . WORD 
STYPEX: RTS 


C 16 
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STPFLG 
1$ 


a2 

a = (SP) 
(SP) + 
(SP)+,RO 
#2, (SP) 
#HT , (SP) 

8$ 
CRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2s 


PC ,STYPEC 
, cats (SP)+ 


2 
$SNULL ,~ (SP) 
1(SP) 


6$ 
PC,$TYPEC 
SCHARCNT 
7$ 


#* (SP) 
PC,S$TYPEC 
#7 ,SCHARCNT 
9$ 


(SP) + 


a$TPS 
STYPEC 

2(SP) ,aSTPB 
+ ail 


LF ,2(SP) 
STYPEX 
(PC)+ 


0 
Pt 


SEQ 0197 


z21S THERE A TERMINAL? 
+ HALT HERE IF NO TERMINAL 


7: SAVE RO 
7:GET ADDRESS OF ASCIZ STRING 


; ;BR RMINATOR 
i31F TERMINATOR POP IT OFF THE STACK 
TORE RO 
+ :ADJUST RETURN PC 
Ss URN 
; BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


;7POP <CR><LF> EQUIV 
zz TYPE A CR AND LF 


7;CLEAR CHARACTER COUNT 
22GET NEXT CHARACTER 

:GO TYPE THIS CHARACTER 
2215 IT TIME FOR 4 > CHARS. ? 

NO GO GET NEXT CHAR. 

7:GET # OF FILLER CHARS. NEEDED 
2 :DOES A NULL NEED TO BE TYPED? 

BR IF NO--GO POP THE NULL OFF OF STACK 
3:60 TYPE A NULL 
tt NOT COUNT AS A COUNT 


: REPLACE TAB WITH SPACE 
PE A SPACE 


7:BRANCH IF NOT AT 
7: TAB STOP 
i SPACE OFF STACK 
22GET NEXT CHARACTER 
;:WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
::IS CHARACTER A CARRIAGE RETURN? 


; BRANCH IF NO 
SD eae CHARACTER COUNT 


T:1S CHARACTER A LINE FEED? 
; BRANCH IF YES 

:;COUNT THE CHARACTER 

3. CHARACTER COUNT STORAGE 
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8881 


000023 
133102 
133074 
133070 
177600 
000021 


000100 


132754 


MACY11 


045650 
045652 
000060 


133210 


001140 
045646 


133046 


045665 
045650 
001140 


30A(1052) 27=-JUL-78 
TTY INPUT ROUTINE 
STKCNT: .WORD 0 
$TKQIN: .WORD 0 
TKQOUT: .WORD 0 
$TKINT: CLR $TKCNT : 
MOV #STKQSRT ,STKOIN :: 
MOV STKQIN, $TKQOUT 
MOV #STKSRV, aA TKVEC 
MOV #200, a#TKVEC+2 
TST a$TkA 
MOV #100, asTks 
$TKSRV: MOVB os xe -(SP) 
BIC #°C177, (SP) 
CMP (SP) #3 
BNE 1$ 
TYPE  ,$CNTLC 
JSR PC, $TKINT 
TST (SP)+ 
JMP OPERSEL 
1$ CMP (SP) #7 
BNE 
CMP ASWREG, SWR 
BEQ 
CMP #9. ,STKCNT 
BNE 3$ 
TYPE  ,$BELL 
TST (SP) + 
BR ct 3 
3$: CMP (SP) 423 
BNE 2$ 
CLR asTkS 
TST (SP) + 
31$: TSTB  a$TKS 
BPL 31$ 
MOVB = a$TKB, - (SP) 
BIC #°C177, (SP) 
CMP (SP)+,421 
BNE 37 
MOV #100, a$TKS 
RTI 
32$: INC $TKCNT 
CMP (SP) ,4140 
ALT 4$ 
CMP (SP) 4175 
BGT 4$ 
BIC #40, (SP) 
4$: MOVB (SP) +, a$TKQIN 
INC $TKQIN 
CMP $TKQIN, #S$TKQEND 
BNE $ 
MOV #STKQSRT ,STKQIN 
5$: RTI 
$CKSWR: CMP ASWREG, SWR 
E 15$ 
TSTB = @$TKS 
BPL 15$ 
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; s=NUMBER OF Ae ye IN QUEUE 
NTER 
;;CLEAR COUNT OF ITEMS IN QUEUE 


INITIALIZE THE KEYBOARD VECTOR 

as “BR'* LEVEL ; 
CLEAR DONE FLAG 

; ENABLE TTY KEYBOARD INTERRUPT 


3zCONTROL C RESTART 
231S IT BP G? 


; BRANCH NO 
21S SOFT-SWR SELECTED? 
2260 TO SWR CHANGE 

31S THE QUEUE FULL? 
+ : BRANCH IF NO 
:ZRING THE TTY BELL 
ann CHARACTER OFF OF STACK 


sEXIT 
2315 A Jem 
; :DISABLE TTY a ears INTERRUPTS 


: CHAR 
7-LOOP UNTIL ITS THERE 
2 GET THE CHARACTER 
MAKE IT 7-BI1T ASCII 
3318 IT A _CONTROL-Q? 


CH IF NO 
hoe TTY KEYBOARD INTERRUPTS 


[:COUNT THIS CHARACTER 

3318 IT UPPER CASE? 

; BRANCH IF YES 

225 Ai id cea CHAR? 
7zMAKE IT UPPER CASE 
7zAND PUT IT IN QUEUE 
Z:UPDATE THE POINTER 

3360 OFF THE Be. 


;BRANCH_IF 
z:RESET THE POINTER 


r1S THE SOFT-SWR SELECTED 
77EXIT IF NOT 

:z1S A CHAR WAITING? 

sr 1F NOT, EXIT 


SEQ 0198 
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8937 
38 


117746 


132750 
177600 


132652 
132646 
177600 
000003 
046725 
000006 
001135 
900100 
042602 
000025 
046732 
000006 


000015 
000004 
000002 


000006 
001223 
001135 


000100 
045576 
000060 
000067 


000060 
000002 


000001 


001135 


000001 
132604 


132532 


000001 
132510 


6$: 


SGTSWR: 


19$: 
7$: 


a$TKB,-(SP) 

#°C177, (SP) 
(SP) #7? 

2s 
$AUTOB, #1 
2s 

(SP) + 

PC ,$TKINT 

astks 

#1, SINIAG 
-SCNTLG 
“$MSWR 
SwREG,-(SP) 
_SMNEW 
=(SP) 

-(SP) 

a$TkKS 

7$ 
a$TkB,-(SP) 

#°(177, (SP) 
(SP) #3 

9$ 

/SCNTLC 

#6,SP 
$INTAG, 41 


8$ 
#100, a$TKS 


SINTAG, #1 
#100, a$TKS 


PC ,$STYPEC 
(SP) ,460 


18$ 

(SP) ,A#67 
18$ 

#60, (SP) + 
2(SP) 


2 YES 

E IT 7-81T ASCII 

IT A CONTROL-G? 

zz1F NOT, PUT IT IN THE TTY QUEUE 

2 sARE cas a ae IN AUTO-MODE ? 
;BRANCH IF 

i CLEAR CONTROL ~G OFF STACK 

ee FLUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 

T:SET INTERRUPT MODE on 

72ECHO THE CONTROL-G (*G) 

zz TYPE CURRENT poet 

| SWREG FOR TYPEOUT 

3;GO TYPE=-OCTAL ASCII(ALL DIGITS) 

7 ;PR NEW SWR 


Se. 
rs 
pened 
mal 4) 


:zPICK UP CHAR 
2 MAKE IT 7-B1T 5 


F NOT 
TIVES, ECHO CONTROL-C (“C) 
hae UP STACK 
on pe KEYBOARD INTERRUPTS? 
‘TALLOW TTY KEYBOARD INTERRUPTS 
3=CONTROL-C RESTART 
2215 su A a 


H IF NO 

Z:YES, ECHO CONTROL-U (“U) 

3 IGNORE PREVIOUS INPUT 

; *S TRY IT AGAIN 

IT A <CR>? 

; sBRANCH IF NO 

77YES, IS IT THE FIRST CHAR? 
F YES 


AND <LF> 
hi KBD INTERRUPTS? 
TTY KBD INTERRUPTS 


F YES 


H IF YES 
: ISTRIP-OFF ASCII 
7:1S THIS THE FIRST CHAR 
;;BRANCH IF YES 
72NO, SHIFT PRESENT 
7: CHAR OVER TO MAKE 
z: ROOM FOR NEW ONE. 
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000002 17$: 2(SP) :sKEEP COUNT OF CHAR 
177776 a - (SP) 


001222 18$: $QUES : TYPE ?<CR><LF> 
BR 20$ :SIMULATE CONTROL-U 
SRDCHR: (SP) ,=(SP) + :PUSH DOWN THE PC AND 
MO 4(SP5 3tsP) TITHE PS 
4(SP) 7:GET READY FOR A CHARACTER 
-(SP) ‘PUT NEW PS ON STACK 
#64$,-(SP) ::PUT NEW PC ON STACK 
[:POP NEW PC AND PS 
or t:WAIT ON A CHARACTER 


STKCNT 7 zDECREMENT THE COUNTER 
@$TKQOUT ,4(SP) 22GET ONE CHARACTER 

$TKQOUT UPDATE THE POINTER 
—— ASTKQEND pie it PS OFF OF THE END? 


IF 
#STKOSRT ,STKQOUT he THE “POINTER 
R3,-(SP) 7 SAVE R3 

#$TTYIN,R3 [GET ADDRESS 

ASTTYINGD. ,R3 3 IBUFFER FULL? 

4$ 2 BR IF YES 

;GO READ ik FROM THE TTY 


(SP) +, (R3) 
#177, (R3) 


3$ 
. $QUES 
$ 


:T 
1 Z:CLEAR THE BUFFER AND LOOP 
(R3) ,9$ 7sECHO THE CHARACTER 


9S 
#15, (R3)+ : 3 CHECK FOR RETURN 
BNE ;LOOP IF NOT RETURN 

177777 -1(R3) ZICLEAR RETURN (THE 15) 
001224 -$LF 7: TYPE A LINE FEED 

(SP)+,R3 7 RESTORE R3 

(SP) ,~(SP) 2 sADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4(SP) ,2(SP) ee FIRST ASCII CHARACTER ON IT 
046714 000004 #$TTYIN,4(SP) ‘agama 


9$: - 0 2: STORAGE FOR ASCII CHAR. TO TYPE 
000012 S$CNILC: . 7*C/<15><12> 
000 S$CNTLU: /*U/<15><12> 
000012 $CNTLG: . /*G/<15><12> 
020122 $MSWR: .ASCIZ <15><12>/SWR = 
053505 $MNEW: .ASCIZ / NEW = 


;FROM THE TTY 
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CZRJIC. P11 27-JUL-78 13:05 READ AN OCTAL NUMBER FROM THE T 
9044 046766 011646 SRDOCT: MOV (SP) ,=(SP) aged ae SPACE FOR THE 
9045 046770 016666 000004 000002 MOV 4(SP),c(SP) T NUMBER 
9046 046776 010046 MOV RO,-(SP) PUSH RO ON STACK 
9047 047000 010146 MOV R1,-(SP) ;PUSH R1 ON STACK 
9048 047002 010246 MOV R2,-(SP) PUSH R2 ON STACK 
9049 047006 104411 1$: RDLIN 77READ AN ASCIZ LINE 
9050 047006 012600 MOV (SP)+,RO 3 ;GET ADDRESS OF 1ST CHARACTER 
9051 047010 010037 047114 MOV RO,5$ 7ZAND SAVE IT 
9052 047014 005001 CLR R1 3zCLEAR DATA WORD 
9053 047016 005002 CLR R2 
9054 047020 112046 2$: MOVB (RO) +,=-(SP) 7zPICKUP THIS CHARACTER 
9055 047022 001420 BEQ 3$ self ZERO GET OUT 
9056 047024 122716 000060 CMPB #°O, (SP) MAKE SURE THIS CHARACTER 
9057 047030 003026 BGT 4$ t:1S AN OCTAL DIGIT 
9058 047032 122716 000067 CMPB #°7,(SP) 
9059 047036 002423 BLT 4$ 
047040 006301 ASL R1 zi*2 
9061 047042 006102 ROL R2 
047044 006301 ASL R1 32%4 
9063 047046 006102 ROL R2 
047050 006301 ASL R1 728 
9065 047052 006102 ROL R2 
9066 047054 042716 177770 BIC #*C7,(SP) szSTRIP THE ASCII JUNK 
9067 047060 062601 ADD (SP)+,R1 7zADD IN THIS DIGIT 
9068 047062 000756 BR 2$ 7 LOOP 
9069 047064 005726 3$: TST (SP) + 37CLEAN TERMINATOR FROM STACK 
9070 047066 010166 000012 MOV R1,12(SP) 7, SAVE THE RESULT 
9071 047072 010237 047124 MOV R2,$HIOCT 
9072 047076 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 
9073 047100 012601 MOV (SP)+,R1 3zPOP STACK INTO R1 
9074 047102 012600 MOV (SP)+,RO ;zPOP STACK INTO RO 
9075 047104 000002 RTI 7 RETURN 
9076 047106 005726 4$: TST (SP) + 77 CLEAN PARTIAL FROM STACK 
9077 047110 105010 CLRB (RO) 7zSET A TERMINATOR 
9078 047112 104401 TYPE 37 TYPE UP THRU THE BAD CHAR. 
9079 047114 000000 5$: -WORD 0 
9080 047116 104401 001222 TYPE , SQUES + thy ei gel as ® ue 
9081 047122 000730 BR 1$ s3 STRY A 


AGAIN 
9082 047124 000000 $HIOCT: .WORD 0 ;ZHIGH ORDER BITS GO HERE 
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177777 
001103 


131702 


001000 


001110 
001214 


001214 


MACY11 yg the pt 
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ERROR HANDLER ROUTINE 


#-1 AC RFLGS 
SERFLG 


$ 
STSTNM,@DISPLAY 


#B1T10,aSwWR 
1$ 


, SBELL 
SERTTL 
(SP) , SERRPC 


#B1T13 
0s 


PC ,SERRTYP 
-$CRLF 
aSwR 

3$ 


#B1TO9,aSwR 
4$ 


$LPERR, (SP) 
$ESCAPE 


5$ 
SESCAPE , (SP) 


H 16 
13:06 PAGE 203 


TEST FOR CHANGE IN SOF T=SwWR 
SET ERROR FLAG 
3567 THE ERROR FLAG 
ON'T LET THE FLAG GO TO ZERO 
DISPLAY TEST tact AND ERROR FLAG 


; E NUMBER OF ERR 
SIGET ADDRESS UF ERROR INSTRUCTION 


3;STRIP_AND SAVE THE ERROR ITEM CODE 
7sSKIP TYPEOUT IF SET 

:zSKIP TYPEOUTS 

::GO TO USER ERROR ROUTINE 


; HALT ON ERROR 

7zSKIP IF CONTINUE 

:zHALT ON ERROR! 

2zTEST FOR CHANGE IN SOFT-SwWR 
iter IF ae SWITCH SET? 


FUDGE RETURN FOR LOOPING 
:3 CHECK FOR AN ESCAPE ADDRESS 


; IF NONE 
: FUDGE RETURN ADDRESS FOR ESCAPE 


SEQ 0202 





“heat FCTNL 


1 27-JUL-78 


OODODODOOOO0NO 
ek ced ed cd ad ced el ced eed ed 
ad 


000000 
017746 


Bad 
13:0 


131636 
177277 
000100 


050236 


047330 
002354 
047360 
002356 
047410 
002360 
047440 
002362 
047470 
002404 
047520 
002364 
047550 
002370 
047600 


I 16 
MACY11 gh yt 27-JUL-78 13:06 PAGE 204 


SEQ 0203 
OR HANDLER ROUTINE 


ges (ARR RRASSAASRLAL SALLE MRA SARS SSDS SS | 


,SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


;*THIS ROUTINE USES THE “‘ITEM CONTROL BYTE** (SITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’’ ($ERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 

OF THE SERRTYP SUBROUTINE FROM SYSMAC. 


NOR CHANGES 
‘ef IRST IF SWITCH 6 IS SET AND SWITCH 8 RESET THEN 
7*ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR 
;*SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER 
7*AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED 


[*AND NOT THE ERROR MESSAGE AND HEADER. 


PRITEM: 0 
SERRTYP: MOV 
BIC 


@SWR ,- (SP) 
#*C500, (SP) 
spree tera 


e$ 
@4TYPERR 


-65$ 

64$ 
awe ,~ (SP) 
.67$ 

66$ 
@ABA , ~ (SP) 
69% 

68$ 
a4CS2,-(SP) 
.71$ 

70$ 
a4CS1,-(SP) 
.73$ 

72$ 
@4DS1,-(SP) 
.75$ 

74% 
@4ER1,-(SP) 
,/7$ 

76$ 
@FER2 ,- (SP) 


.79$ 
78$ 


PREVIOUS ITEM NO. LOCATION 


GET SWITCH SETTING 

KEEP ONLY SWITCH 8 ed 6 

71S 6 SET AND 8 RESET 

;1F NOT BRANCH 

[BRANCH IF SW 6 IS SET AND 8 RESET 
;JUMP_IF Sw 8 IS SET 

[OR IF SW 8 IS RESET AND Sw 6 IS RESET 


3zTYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
7GET READY TO TYPE RHWC CONTENTS 


sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
:GET READY TO TYPE RHBA CONTENTS 


zz TYPE ASCIZ STRING 
7:GET OVER THE ASCIZ 
:GET READY TO TYPE RHCS2 CONTENTS 


zz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
:GET READY TO TYPE RHCS1 CONTENTS 


22 TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
[GET READY TO TYPE RHDS1 CONTENTS 


77 TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
:GET READY TO TYPE RHER1 CONTENTS 


sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
:GET READY TO TYPE RHER2 CONTENTS 


;7 TYPE ASCIZ STRING 
;7GET OVER THE ASCIZ 





J 16 
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013746 002376 @FERS,-(SP) GET READY TO TYPE RHER3 CONTENTS 


047630 ,81$ ie TYPE ASCIZ STRING 
BR 80$ 33GET OVER THE ASCIZ 
002366 @ADST ,-(SP) :GET READY TO TYPE RHDST CONTENTS 


047660 ,83$ si TYPE ASCIZ STRING 
BR ;;GET OVER THE ASCIZ 
002374 MO @4(A,- (SP) :GET READY TO TYPE RHCA CONTENTS 


047710 ,85$ 3eTYPe ASCIZ STRING 
84$ 7iGET OVER THE ASCIZ 
002400 @AAS ,- (SP) ;GET READY TO TYPE RHAS CONTENTS 


047740 ,87$ sz TYPE ASCIZ STRING 
86$ 3:GET OVER THE ASCIZ 
002372 MO @A0F ,-( SP) ;GET READY TO TYPE RHOF CONTENTS 


047770 7a TYPE ASCIZ STRING 
88$ 73GET OVER THE ASCIZ 
002402 @4MR ,- (SP) :GET READY TO TYPE RHMR CONTENTS 


050020 ,91$ : TYPE ASCIZ STRING 
BR ::GET OVER THE ASCIZ 
002420 MOV @ALA,-(SP) 7GET READY TO TYPE RHLA CONTENTS 


050050 ,93$ sz TYPE ASCIZ STRING 
BR 3zGET OVER THE ASCIZ 


923 
002416 a4CC,-(SP) ;GET READY TO TYPE RHCC CONTENTS 


050100 -95$ sTYPE ASCIZ STRING 
BR 94$ 3:GET OVER THE ASCIZ 
002412 MO a4EC1,-(SP) ;GET READY TO TYPE RHEC1 CONTENTS 


050130 ,97$ 7: TYPE ASCIZ STRING 
" BR 96$ 7 ;GET OVER THE ASCIZ 
002414 @VEC2,-(SP) :GET READY TO TYPE RHEC2 CONTENTS 


050160 99S i2:TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
002406 MO aADT ,-(SP) :GET READY TO TYPE RHDT CONTENTS 


050210 .101$ 3s TYPE ASCIZ STRING 
BR 100$ 3;GET OVER THE ASCIZ 
002410 MO @4SN,~-(SP) ;GET READY TO TYPE RHSN CONTENTS 


047274 ies C @s#PRITEM :CLEAR PREVIOUS ERROR ITEM 
001223 ¥ SCRLF : CARRIAGE RETURN'' & ‘LINE FEED"' 


RO,-(SP) 
CL RO :PICKUP THE ITEM INDEX 
001114 a4$1 TEMB RO 
050252 BN 1$ 71F ITEM NUMBER IS ZERO, JUST 
:TYPE THE PC OF THE ERROR 
050254 013746 001116 SERRPC ,-(SP) [SAVE SERRPC FOR TYPEOUT 
ERROR ADDRESS 








CZRJICO, RPOG/S/6 FCTNL CTLRI 
C2RJIC.P11 27-JUL-78 13:05 


001226 
047274 


047274 
050326 


001223 
050344 


001223 


050420 


MACY11 30A(1052) 


16 
27-JUL-78 13: 06 PAGE 206 SEQ 0205 


ERROR MESSAGE TYPEOUT ROUTINE 


1$: 


;GO TYPE=-OCTAL ASCII(ALL DIGITS) 
;GET OUT 


SADJUST THE INDEX SO THAT IT WILL 
5 WORK FOR THE ERROR TABLE 


RO 

#SERRTB,RO ;FORM TABLE POINTER 

RO, @#PRITEM WAS a bt oe ERROR SAME 
1 BRANCH NOT 


3$ IF 
(RO) +, (RO)+ POP RO OVER EM AND DH 


3 
RO, @4PRITEM :SAVE NEW ERROR ITEM 
ahi [PICKUP ‘ERROR MESSAGE"' a 


,SCRLF > 
(RO)+,4$ PICKUP "DATA HEADER’’ POINTER 
5$ SKIP TYPEOUT IF 0 

TYPE THE ‘DATA HEADER’ 
0 "DATA HEADER’* POINTER GOES HERE 
,$CRLF Z'CARRIAGE RETURN’ & ‘LINE FEED" 
R1,-(SP) SAVE R1 
(RO)+,R1 :PICKUP "DATA TABLE’’ POINTER 
$ IF NO ATA TO BE TYPED 
(RO) +,RO [PICKUP "DATA FORMAT"* POINTER 
(RO) + :'OCTAL’' OR “DECIMAL 

[BR IF DECIMAL 


7$ 
a(R1)+,-(SP) ;SAVE a(R1)+ FOR TYPEOUT 


8s ;GO TYPE--OCTAL ASCII CALL DIGITS) 


a@(R1)+,-(SP) 7SAVE @(R1)+ FOR TYPEOUT 
3GO TYPE--DECIMAL ASCII di SIGN 
(R1) 31S THERE ANOTHER NUMBER 
9$ BR IF NO 
,11$ TYPE TWO(2) SPACES 
6$ ; LOOP 


(SP)+,R1 ZRESTORE R1 
(SP)+,RO a RETURN'' & "LINE FEED*’ 


PC ET 
;TWO(2) SPACES 
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CZRJIC.P11 27-JUL~-78 13:05 ERROR MESSAGE TYPEOUT ROUTINE 


$TYPOS: MOV a(SP) ,--(SP) PICKUP THE MODE 
050647 MOVB 3 LOAD ZERO FILL SWITCH 
P)+, 1 ;3NUMBER OF DIGITS TO TYPE 
7ZADJUST RETURN ADDRESS 


BR $STYPON 
050647 3 7¢SET THE ZERO FILL SWITCH 
1 MO 3sSET FOR SIX(6) DIGITS 
72SET 3 ITERATION COUNT 


** RS 
7;GET THE NUMBER OF DIGITS TO TYPE 


: 7 SUBTRACT IT FOR MAX. ALLOWED 
szSAVE IT FOR USE 
SOFILL, RG :zGET THE ZERO FILL SWITCH 
12(SP) ,R5 3zPICKUP THE INPUT NUMBER 
R3 ;zCLEAR THE OUTPUT | WORD 
; ROTATE MSB INTO ° 
::GO DO MSB 
7 FORM THIS DIGIT 


: ah LSB OF THIS DIGIT 
050650 : dh Hy DIGIT? 


$ ; IF NO 
177770 . ZIGET RID OF JUNK 
4$ 33 FOR 0 


ST 
ie Fg Fie 0? 


is IF 

;DON'T SUPPRESS ANYMORE 0°S 

+ MAKE THIS DIGIT ASCII 

2 MAKE pectt IF NOT ALREADY 
SAVE FOR TYPING 

2360 TYPE mas DIGIT 


OUN 
;:BR IF MORE TO DO 
IF DONE 


SZ INSURE LAST DIGIT ISN'T A BLANK 
;:GO DO THE LAST DIGIT 
; ;RESTORE R5 


es R3 
000002 000004 ;SET THE STACK FOR RETURNING 
; RETURN 
> STORAGE - ASCII DIGIT 
; INA FOR TYPE ROUTINE 


°° 7ERO FILL SWITCH 
‘NUMBER OF DIGITS TO TYPE 
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CZRJIC.P11 27-JUL-78 13:05 TRAP DECODER 


010046 STRAP: RO,-(SP) 7;SAVE RO 

016600 000002 MO : 7;GET TRAP ADDRESS 

005740 ) ; BACKUP BY 2 

111000 3-GET RIGHT BYTE OF TRAP 
0 ;zPOSITION FOR aarti: 


006300 R 
016000 050706 $TRPAD (RO) ,RO 
000200 RO 


R 
011646 $STRAP2: (SP) ,-(SP) 
016666 000004 000002 MO 4(SP),2(SP) : 
000002 R 7 RESTORE THE PSW 
$STRPAD: ; $TRAP2 


37 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

3; CALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
33 CALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 
33 CALL=TYPON TYPE OCTAL NUMBER (AS PER LAST CALL) 
32 CALL=TYPDS TRAP+5 (104405) ECIMAL NUMBER (WITH SIGN) 

37 CALL=GTSWR TRAP +6 (104406) NG 

37 CALL=CKSWR TRAP+7(104407) TE OR I 

37 CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 

33 CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 

72 CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 

77 CALL=WAT TRAP+13(104413) DONT ADD ABOVE THIS TRAP 





C72R5.00, RPUG/S/6 FCTNL 
27=JUL-78 


CZ2RJIC.P11 


012737 


130100 


050736 
000340 


047520 


MACY11 30A(1052) 
POWER DOWN 


000024 
000026 


000024 
000026 


042527 


$SPWRMG: . 
SPWRAD : 
$ILLUP: 


$SAVRO: 
SPOWER: 


1 


8 
27-JUL-78 ib at PAGE 209 
OWN AND UP ROU 


0 
eASCIZ 


#SILLUP , a#PWRVEC Jt 48 FAST UP 
#340, @iPURVEC 2 72PR 
a RO ON STACK 


R3 ON STACK 
R4 ON STACK 
RS ON STACK 
@SWR ON STACK 


sSAVE SP 
UP, a#PWRVEC SET UP VECTOR 


-2 + HANG UP 
w#SILLUP aaPWRVEC EiSET FOR FAST DOWN 
<{WAIT LOOP FOR THE TTY 
;zWAIT FOR THE INC 
“OF WORD 


1$ 

(SP)+,aSWR ;;POP STACK INTO @SWR 

(SP)+,R5 is STACK INTO R5 

(SP) +,R4 ;;POP STACK INTO R4& 

(SP) +,R3 ;;POP STACK INTO R3 

(SP)+,R2 $3 STACK INTO R2 

(SP)+,R1 3s STACK INTO R1 

(SP)+,RO ;;POP STACK INTO RO 

#SPWRDN , @APWRVEC i3SET Bg THE POWER DOWN VECTOR 


#340, aMPWRVEC+2 ; 

‘REPORT THE POWER FAILURE 
SPOWER 7;POWER FAIL MESSAGE POINTER 
(PC)+, (SP) 7; ZRESTART AT BEGIN 
BEGIN 7 sRESTART ADDRESS 


7: THE POWER UP SEQUENCE WAS STARTED 
3:2 BEFORE THE POWER DOWN WAS COMPLETE 
7zPUT THE SP HERE 

<15><12>° POWER’' 





CZRJICO, RPO4/5/6 FCTNL 
CZRJIC.P11 27-JUL-78 13 


050122 


051440 
050130 
0201 


020061 0475 
051524 020114 


© 7 
MACY11 30A(1052) 27=JUL-78 13:06 PAGE 210 SEQ 0209 
POWER D TI 


047125 


OWN AND UP ROUTINES 


SERERAEARAREEEEEREEEREREREEEEERERERE 


-* 
7*ERROR AND MESSAGE TABLE CONDIMENTS 
* 


. 
[EAA AEAEREEERREEEREEERRRREREEK 


/RPO4 DID NOT INTERRUPT/ 


INTERRUPT ENABLE BIT DOWN BUT EXPECTED BIT DID NOT SET/ 


/RPO4 DID NOT INTERRUPT WHEN EXPECTED BIT DID SET/ 


/EXPECTED BIT DID SET BUT TIME IS IN ERROR (TIME IN 10 MICROSEC, DECIMAL 


/RHAS DOES NOT CLEAR BY MOVING IN ALL ONES/ 


/LOADING RHER1 FOR ALL UNITS DID NOT SET ANY RHAS BITS/ 





CZRJICO, RPOG/5/6 FCTNL CITLRI 
27-JUL=78 13:05 


052111 


CZRJIC.P11 
051532 


26060 


026 
030475 


020 


123 
1 


047516 


MACY11 30A(1052) 
POWER DOWN AND UP ROUTIN 


046 
052122 


051040 
051440 
020110 


020122 
020122 


D 1 
27-JUL-78 iat PAGE 211 SEQ 0210 
/NON EXISTENT REGISTER, PROGRAM ABORTED./ 


/STOPPED DRIVE HAS MOL BIT IN RHDS1 SET/ 


/WITH SPINDLE POWERED DOWN RHCS2 SHOULD ONLY HAVE UNIT NO. AND IR SET/ 


/AFTER SPINDLE POWERED UP, NO PACK ACKN. RHDS1 SHOULD HAVE MOL=1, VV=0/ 


/WITH SPINDLE POWERED UP, NO INTIALIZE, RHCS1 SHOULD HAVE GO=0, DVA=1, R 





ae 


CZRJICO, RPO4/5/6 FCTNL CTLRI 


CZRJIC.P11 


9493 
9% 


052232 


05 
052674 
052702 


27-JUL-78 13:05 


040440 
047522 


047517 


046515 
053111 


047522 
047517 


020054 


MACY11 30A(1052) 
POWER DOWN AND UP 


044440 
020122 
046104 


020113 
053517 


020120 
047101 
051525 
020116 
006522 


020104 


047101 
020105 
2 


006522 
020104 


042522 


EM14: 


—EM15: 


EM16: 


EM17: 


ROU 


e 7 
27-JUL-78 ase PAGE 212 SEQ 0211 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCII 


-ASCIZ 


NES 


/AFTER SPINDLE POWERED UP, RHCC SHOULD BE=0/ 


/PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 


/NO-OP COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 


/DRIVE CLEAR COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER COMMAND/ 


an 


CZRJICO, RPO4/5/6 FCTNL CTLR1 
27-JUL-78 13:05 


CZRJIC.P11 
052710 


052740 
052743 


053362 


020103 
043440 


043101 


051122 
046116 


042524 


MACY11 30A(1052) 
POWER D 


030523 
24 


047522 
020061 
5 


051117 


040517 
046515 
040503 
040440 
047522 


020104 


020122 


1 


F 
27-JUL-78 a PAGE 213 SEQ 0212 


OWN AND UP ROU 


-ASCII 


-ASCIZ 


eASCIZ 


-ASCII 


NES 


/READ=IN COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 


/RHCS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


/RHDS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


/UNLOAD COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 





arn 


CZRJICO, RPO4/S/6 FCTNL crn 


C2RJIC.P11 


9605 


053370 
053376 
053400 


054052 


27-JUL-78 13:0 


047503 
000104 


046511 


046515 


051120 


MACY11 gos gt 


047101 
052105 
15 


042116 
051125 
0 


042116 
ey 


051122 
Oecoae 


050117 


EM24: 


EM25: 


EM26: 


EM27: 


G 1 
27-JUL-78 13: oy PAGE 214 SEQ 0213 


DOWN AND UP ROUTINES 


-ASCII 


-ASCIZ 


eASCII 


-ASCIZ 


-ASCIZ 


-ASCII 


/OFFSET COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 


/RETURN TO CENTER LINE COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 


/500 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/ 


/WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE /<15><12> 


Co 


H 1 
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051105 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


042116 
054232 


054233 Reser -ASCIZ /WRITE HEADER AND DATA CHANGED WRITE FROM BUFFER/ 


051105 


Bet ioe -ASCII /READ HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


051105 
044505 ‘ /RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


046515 047101 


054526 000104 





ony 


CZRJICO, RPO4/5/6 FCTNL CTLRI 


CZRJIC.P11 


055214 


27-JUL-78 13:05 


051127 


052111 


047101 
042117 


MACY11 30A(1052) 
POWER DOWN AND UP ROUTIN 


020105 
051105 


042507 
042040 


042522 
053111 


041440 
042116 


020104 
044440 
042522 


042524 
020101 


051105 


EM32: 


EM3_: 


EM34: 


EM35: 


: 7 
27-JUL-78 as PAGE 216 SEQ 0215 


-ASCIZ 


ASCII 


ASCII 


-ASCIZ 


-ASCIZ 


-ASCII 


-ASCII 


/WRITE HEADER DATA, FOLLOWED BY READ HEADER AND DATA, CAUSED DATA ERROR/ 


/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


/READ DATA INCORRECT/ 


/WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


qAmo 


CZRJICO, RPO4/5/6 FCTNL CTLR1 


CZRJIC.P11 


055217 


055564 
055572 
055575 


055666 
055674 
055702 


27-JUL-78 13:05 


020104 


MACY11 30A(1052) 
POWER DOWN AND UP ROUTIN 


042502 


EM36: 


EM37: 


EM4O: 


J 1 
27-JUL-78 at PAGE 217 


-ASCIZ 


-ASCIZ 


-ASCII 


-ASCII 


-ASCIZ 


-ASCII 


-ASCII 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


/WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/ 


/SEEK COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEK COMMAND/ 


/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


SEQ 0216 


am 


Z.7 
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055710 042522 
053111 eASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


/LOCKING OUT WRITE BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/ 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/ 


052125 


eit 046505 ; . /ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER CHA 


012 
047517 . /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 





CZRJICO, RPOG/5/6 FCTNL CTLR1 
27-JUL-78 13:05 


CZRJIC.P11 


057066 
057074 


052124 


046505 


MACY11 30A(1052) 
POWER DOWN 


052101 
020104 


042524 
044505 


052120 


-ASCII 


ss 
27-JUL-78 13:06 PAGE 219 SEQ 0218 
AND UP ROUTI 


NES 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/ 


/WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<‘5><12> 


/GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE (WITH WRITE LOCKED OUT)/< 


/WAS ATTEMPTED/<15><12> 


/RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12> 


/(WITH WRITE LOCKED QUT) WAS ATTEMPTED/ 





an 


M 1 
CZRJICO, RPO4/S/6 FCTNL MACY11 30A(1052) 27=JUL-78 13:06 PAGE 220 SEQ 0219 
CZRJIC.P11 27-JUL-78 13: POWER DOWN AND UP ROUTINES 


057102 


os Bhs EM44:  .ASCII /ENABL:NG WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHAMNSE/<1 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


041040 
051105 
/RECEIVED DATA GIVES REGIS™ER CONTENTS AFTER WRITE LOCK BUTTON/<15><12> 


052124 


042514 ° /ENABLED WRITES/ 
052111 


REE : ° / TRANSFERRING ON LAST BLOCK - CYLINDER 410, SECTOR 21, TRACK 18/<15><12> 


/CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


057570 046125 020104 042502 





an 


N 1 
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9997 057576 052040 042510 042522 

9998 057604 


042522 042503 053111 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/ 


057666 000 
10008 057673 104 052101 020101 —M46: .ASCIJ /DATA READ FROM LAST BLOCK = CYLINDER 410, SECTOR 21, TRACK 18/<15><12> 
10009 pereee pees 042101 043040 


057752 020122 030462 020054 
057760 051124 041501 020113 


06 
057772 051511 044440 020116 eASCIZ /IS IN ERROR/ 
060000 000122 
10021 060006 051124 047101 043123 EM47:  .ASCII /TRANSFERRING DATA FROM NONEXISTANT SECTOR CAUSED IMPROPER /<15><12> 


el el ee eed eed eed ed 
BEEEEEEEEE 
ed ed ed eed 
WONAUSWN—O 

So 

wi 

N 

NS 

LS 

S 

So So 

— 

° 

LS 

oOo 

R 

—_ 

Ww 

So 

w 

R 

N 

wn 

Nm 

& 


10031 060102 042522 044507 ey at -ASCII /REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


10041 060171 122 041505 044505 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/ 


10049 060250 05 
10050 060256 052040 040522 051516 
10051 060264 042506 000122 


amo 


CZRJICO, RPO4/5S/6 FCTNL 


CZRJIC.P11 


27-JUL-78 


051124 
051105 
043040 


26 
051127 


CTLR1 
13:05 


04 
051122 


042510 
020104 


043123 
053111 


042510 
042503 


052111 


MACY11 30A(1052) 
POWE 


043123 &MS50: 
043516 


051105 
Boats EM51: 


044507 


042522 
053111 


020105 EMS2: 


B 2 
27-JUL-78 13:06 PAGE 222 SEQ 0221 
R DOWN AND UP ROUTINES 


ASCII 


-ASCII 


-ASC1Z 


ASCII 


-ASCII 


eASCIZ 


-ASCII 


/TRANSFERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/BAD DATA GIVES WHAT WAS IN BUFFER AFTER TRANSFER/ 


/GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ILLEGAL FUNCTION IS GIVEN/ 


/WRITE DATA COMMAND ON NONEXISTANT SECTOR CAUSED IMPROPER REG. CHANGE /<1 


CZRJICO, RPOG/S/6 FCTNL CTLR1 MACY11 30A(1052) 27-JUL-78 : SEQ 0222 
CZRJIC.P11 27-JUL-78 13 POWER DOWN AND UP ROU 


—) 
oO 
=i 
3 


041440 


= 
lelelelelelelelelelele) 
aad aah and oth and oh aa an aa aa ead 


GW 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


MO DOONAUSWNO 


—— 


042522 
053111 . /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/ 


mee a ed ad ad od od oJ 


lelelelelele) 
= 
NM 
s 


-ASCIZ /READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/ 


051122 051117 


052124 esty es eASCII /ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE 


047101 042507 
042117 042040 . /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


061452 052101 051440 047510 





2 @ 
CZRJICO, RPOG/5/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL-78 13:06 PAGE 224 SEQ 0223 
CZRJIC.P11 27-JUL-78 13:05 POWER DOWN AND UP ROUTINES 


020104 042502 
042510 042522 


042503 053111 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


EMS5: -ASCII /WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROR/<15><12> 


/CAUSED IMPROPER REGISTER CHANGE/<15><12> 


047101 
042040 . /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


042510 042522 
ater 053111 . /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


-ASCII /DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR IS INCORRECT/<15><12> 


042522 
062152 042122 047040 : /WORD NO. 1 TO 260 SHOULD BE READ, WORD NO 261 TO 266 SHOULD/<15><12> 





g 
CZRJICO, RPO4/5/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL-78 13:06 PAGE 225 SEQ 0224 
CZRJIC.P11 27-JUL-78 13:05 POWER DOWN AND UP ROUTINES 


027117 030440 052040 


-ASCIZ /BE CHANGED/ 
-ASCII /ATTEMPTING DATA COMMAND WITH WRONG FORMAT BIT CAUSED/<15><12> 


/ IMPROPER REGISTER CHANGE/<15><12> 


047101 042507 
042117 042040 . /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


042510 042522 
042503 053111 ‘ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED DATA TRANSFER/ 


051516 042506 


042524 oraaln -ASCII /ATTEMPTING TO MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15>< 


042105 044440 050115 





CZRJICO, RPO4/5/6 FCTNL CTLR1 


CZRJIC.P11 


27-JUL-78 13:05 
042520 
043505 


020122 
051504 


036440 
042110 


MACY11 30A(1 
POWE 


006522 
051511 


042522 
053111 


042524 
043111 


051122 
030523 


020075 
020061 
3 


030040 
030523 


a 
052) 27=JUL-78 13:06 PAGE 226 SEQ 0225 
R DOWN AND UP ROUTINES 


-ASCII 


-ASCIZ 


-ASCIZ 


/REGISTER CHANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15 


/MODIFYING REG GIVES ADDRESS OF REGISTER BEING MODIFIED WHICH CAUSED ERR 


/RHCS1 HAS SOME INCORRECT STATUS BITS 


/RHDS1 HAS SOME INCORRECT STATUS BITS 


/RHDS1 CONTENTS DURING COMMAND WERE IN ERROR/ 





G 2 
CZRJICO, RPO4/5/6 FCTNL CTLR1 MACY11 "rat 6 27-JUL-78 13:06 PAGE 227 SEQ 0226 
CZRJIC.P11 27-JUL-78 13:05 R DOWN AND UP ROUTINES 


047117 042524 


051122 
pond : -ASCII /RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


bw bP YP Db YP YP rb bP 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


042522 
053111 . /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


046515 
051122 : : /INTERRUPT FAILING/ 


/HEADER AND DATA COMMAND FOR HEAD SELECTION TEST CAUSED/<15><12> 


051525 
047522 . /ERROR - RHDST GIVES TRACK BEING WRITTEN OR READ ON CYL 0, SCTR 0/<15><1 


r 
A 
A 
A 
A 
A 
f 
r) 
f 
f 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
f 
t 
t 
t 
t 
t 
f 
t 
t 
t 
t 
( 


051124 030040 005015 





CZRJICO, RPO4/5/6 FCTNL CILRI 
27-JUL~-78 13:05 


CZRJIC.P11 


064036 
064044 
064052 


riety 


aD aed ee cae ed ed eed eed esd = © 
aus 


PEPFESEP TESS ETE 


ereeee 


047111 


044440 
043111 


042504 


MACY11 30A(1 
POWE 


R 


044040 £EM67:  .ASCII 


20122 


051505 
020124 


042122 
047111 


041115 


044040 
2 


006516 
042506 


042504 
020104 


020122 


-ASCII 


H 


2 
052) 27=-JUL-78 13:06 PAGE 228 SEQ 0227 
DOWN AND UP ROUTINES 


/READ HEADER AND DATA ERROR IN HEAD SELECTION TEST./<12><15> 


/FIRST FOUR WORD NUMBERS ARE THE HEADER./<12><15> 


/WORD NUMBERS 5 TO 260 ARE DATA WORDS,/<12><15> 


/AND IN DATA WORDS BITS 4,5,6.7,8 GIVE TRACK NUMBER./ 


/READ HEADER AND DATA ERROR IN/<15><12> 


/DIFFERENCE LINE TEST/<15><12> 


/WORD NOS 1-4 GIVE HEADER/<15><12> 


/WORD NOS 5-260 GIVE DATA WHICH IS THE CYLINDER ADDRESS/ 


eS OS 8 28 28S FSS MOM AAA 


[ee 





CZRJICO, RPO4/5/6 FCTNL CTLRI 
27-JUL-78 13:05 


FIRJIC.P11 


042510 


051104 


042510 


042503 
042040 


MACY11 30A(1052) 


051505 
047111 


047101 
042040 


042522 
053111 


042507 
042040 


042522 
053111 


040440 


a 
27-JUL-78 tare PAGE 229 


POWER DOWN AND UP ROUTINE 


EM71:  .ASCII 


-ASCII 


-ASCII 


/FORCING OPI BY 3 INDEX PULSES/<15><1i2> 


/CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/ 


/WHILE USING UNIBUS B/<15><12> 


/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


SEQ 0228 


ogo oovo09v090"90°°°°9°9°9 


D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
0 
D 
D 
D 
C 
D 


On MOMMOMmOMrOmOOMm fo ] 





J 2 
CZRJICO, RPO4/5/6 FCTNL CTL MACY11 30A(1052) 27=JUL-78 13:06 PAGE 230 SEQ 0229 
CZRJIC.P11 27-JUL-78 13: POWER DOWN AND UP ROUTINES 


041440 
042116 


oeele EM73:  .ASCII /WHILE USING UNIBUS B/<15><12> 


-ASCIZ /READ DATA INCORRECT/ 
042522 
pigere -ASCII /WHILE USING UNIBUS B/<15><12> 


goo9v°c9°v9°°9779O 


-ASCII /WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


051105 
044505 ‘ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


-ASCII /WHILE USING UNIBUS B/<15><12> 


eASCIZ /WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/ 


043125 


Oe0 18s -ASCII /WHILE USING UNIBUS B/<15><12> 
047125 051525 
041040 005015 


E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 





K 


2 
CZRJICO, RPO4/5/6 FCTNL CTLR1 MACY11 Sek be 27-JUL-78 ub i's PAGE 231 SEQ 0230 


CZRJIC.P11 27-JUL-78 13:05 


051127 052111 -ASCII 


051105 
044505 


-ASCII 


-ASCIZ 


020116 0502 020104 


OWN AND UP ROUTINE 


/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


/PRELOADING *RHCC* PRIOR TO DOING NEXT TEST DOES NOT PRODUCE CORRECT RES 


/THEREFORE NEXT TEST RESULTS ARE SUSPECT WITH REGARD TO ‘RHCC* CONTENTS/ 


/ADDRESS PLUG CHANGE RESULTED IN BAD REGISTER DATA/ 





| 
| 


E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
F 
F 
F 
F 





_¢ 
CZRJICO, RPO4/5/6 FCTNL CTLR1 MACY11 30A(1052) 27-JUL-78 13:06 PAGE 232 SEQ 0231 
CZRJIC.P11 27-JUL-78 13:05 POWER DOWN AND UP ROUTINES 


044507 052123 
042040 052101 


052111 042040 : .ASCIZ /UNIT DID NOT GO OFFLINE WHEN ADDRESS PLUG REMOVED/ 


-ASCIZ /UNIT NOT AVAILABLE AFTER ADDRESS PLUG REPLACED/ 


-ASCIZ /REGISTER CONTENTS INCORRECT BEFORE A DIAG MODE SEEK/ 


-ASCIZ /REGISTER CONTENTS INCORRECT AFTER A DIAG MODE SEEK/ 


051440 
042505 000113 





CZRJICO, RPO4/5/6 FCTNL 
27-JUL-78 


CZRJIC.P11 


MACY11 30A(1 
POWE 


M 2 
052) 27-JUL-78 13:06 PAGE 233 
R DOWN AND UP ROUTINES 


sate: CPHALT: .ASCII /FATAL ERROR ~ SEE DOCUMENT LISTING/<15><12><15><12> 


005015 


020105 047503 
047522 


7111 
051517 
042522 


051524 
020110 
052117 


046103 
000104 


020040 


042524 
000 
020103 020040 DH4: 


/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12> 


/"READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12> 


/WHICH CANNOT BE CLEARED/ 


/PC BIT REG REG RHCS1/<15><12> 


EXPECT ADDRESS CONTENT CONTENT/ 


ASCII = /PC BIT REG TIME IN/<15><12> 


SEQ 0232 





[OOO RRR KR RRR KR KR RRR KR KR KR Kee OM 


a ee ee ee 


ca ee ee i ie ie ee ee ee ee 


N 2 
CZRJICO, RPO4/5/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL-78 13:06 PAGE 234 SEQ 0233 
CZRJIC.P11 27-JUL-78 13:05 POWER DOWN AND UP ROUTINES 


051505 
EXPECT ADDRESS 10 MSEC/ 


REG GOOD RECEIVED/<15><12> 
ADDRESS DATA DATA/ 


REG RECEIVED/<15><12> 


ADDRESS DATA/ 


REG ADDRESS/ 


020040 
020040 
051104 


0 
0 
P. 
pP 
Pp 
P 
pP 
Pp 
=) 
p 
Pp 
p 
Pp 
p 
p 
Pp 
p 
p 
p 
p 
Pp 
) 
Pp 
Pp 
Pp 
Pp 
F 
Pp 
p 
Fp 
Ri 
R 
R 
R 
R 


-ASCII FAILING CONTENT CONTENT CONTENT CONTENT/<15><12> 


070030 052116 047105 020124 





B 3 
CZRJICO, RPO4/5/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL-78 13:06 PAGE 235 SEQ 0234 
CZRJIC.P11 27-JUL-78 13:05 POWER DOWN AND UP ROUTINES 
052116 047105 
O12 


020040 -ASCIZ / REG. RHCS1 RHCS1 RHDS1 RHERI/ 


042510 030522 
020103 peveey -ASCII CONT OF CONT OF CONT OF CONT OF CONT OF CONT OF/<15><12 


RHCS1 RHCS2 RHDS1 RHER1 RHER2 RHER3/ 


044122 051105 
020040 Boost -ASCII WORD GOOD BAD/<15><12> 


040502 006504 
020040 020040 : DATA DATA/<15><12> 


052101 


syyes' ASCII REG GOOD RECVD  ILLEGL/<15><12> 


070514 020104 020040 046111 





. 2 
CZRJICO, RPO4/5/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL-78 13:06 PAGE 236 SEQ 0235 
CZRJIC.P11 27-JUL-78 13:05 POWER DOWN AND UP ROUTINES 


070522 046107 005015 
020040 


ASCIZ / NO ADDRESS DATA DATA FUNC TN/ 


020040 
047124 
020103 oS ASCII RECVD MODF ING/<15><12> 


044506 043516 
020040 020040 . ADDRESS DATA DATA REG/ 


042522 
Resist -ASCII PC OF RHCS1/<15><12> 


051503 006461 
020040 020040 ° JSR WAS/ 


ASCII PC OF RHDS1/<15><12> 


030523 
020040 ° JSR WAS/ 


020040 
peones -ASCII CONT CONT CONT /<15><12> 


020040 
071176 020040 005015 





CZRJICO, RPO4/ 
CZRJIC.P11 


071350 
071353 


071632 


5/6 FCTNL CTLR1 
27-JUL-78 


seseseesse 


33 
= 


002404 


MACY11 30A 
PO 


020040 


041510 


020040 
5 


040504 


041706 
001126 


041706 
001126 


004600 
000000 
004600 
001200 
001122 
002404 


002362 
002364 


dD 3 
(1052) 27=JUL-78 13:06 PAGE 237 
WER DOWN AND UP ROUTINES 


-ASCIZ 


-ASCIZ 


-ASCII 


/ NO RHCS1 


/PC RHDST  RHER1 RHER3 RHCS1 RHCS2/ 


/PC . BAD/<15><12> 


DATA/ 


SERRPC, TSTNM,WAITPC ,WAITBT ,WAITRE ,SBDDAT,CS1,0 
SERRPC, TSTNM,WAITPC ,WAITBT ,WAITRE ,SBDDAT ,WAITTM,0 


SERRPC , TSTNM,REGADR, $GDDAT , $BDDAT ,0 
SERRPC,TSTNM,REGADR, $BDDAT ,0 
SERRPC, TSTNM,$TMP1 0 


SERRPC, TSTNM, $BDADR,CS1,CS2,DS1,ER1,0 


SERRPC,TSTNM,CS1,CS2,DS1,ER1,ER2,ER3,0 


SEQ 0236 





. 2 
CZRJICO, RPO4/5/6 FCTNL CTLR1 MACY11 30A(1052) 27-JUL=78 13:06 PAGE 238 SEQ 0237 
CZRJIC.P11 27-JUL-78 13:05 POWER DOWN AND UP ROUTINES 


071640 002370 002376 000000 
071646 001116 004604 004602 DT30: .WORD $ERRPC,TSTNM,ERWORD,$GDDAT ,$8DDAT ,0 
071654 001124 001126 000000 
004604 004600 DT51: . $SERRPC,TSTNM,REGADR ,$GDDAT , $BDDAT, ILLEGL ,0 
001126 002464 
004604 004600 DT60: . SERRPC, TSTNM,REGADR, $GDDAT , $BDDAT , $BDADR , 0 
001126 001122 
004604 041512 DT61:  . SERRPC,TSTNM,PCJSR,$BDADR ,0 
041512 DT62: . SERRPC,TSTNM,PCJSR,$BDADR,0 
002362 DT65: . SERRPC,TSTNM,CS1,AS,DS1.0 
DT66: SERRPC ,TSTNM,ER1,ER2,ER3,CS1,CS2,0 
002362 
071772 000000 
071776 004604 041512 DT77: . SERRPC, TSTNM,PCJSR,REGADR,$GDDAT , $BDDAT ,0 
072004 0 001124 001126 
072012 
072014 000 DF1: ‘ 0.0,0.0,0,0,0 
000 


000 DF4: * 0,0.0,0,0,1,0 
001 


000 DFS: ‘ 0.0,0.0,0 
000 DF6: . 0.0,0,0 
DF7: x 0.0,0 
072046 FIO: . 0.0,0,0.0,0,0 


072051 
072054 


072055 OF26: . 0,0,0.0,0,0,0,0 
000 


DF 30: 4 0,0.0,0,0 
072070 


072072 pPSie. 0,0,0,0.0,0 
072075 


DF60: . 0,0.0,0.0,0 
DF61:  . 0,0,0.0 
000 
072112 DF62: ‘ 0,0.0,0 





CZRJICO, RPOS/5/6 FCTNL CTLR1 
27-JUL=78 13:05 


CZRJIC.P11 


072115 
072116 
072121 
072123 
072126 
072131 


072133 
072136 


072142 


000001 


r 2 
MACY11 30A(1052) 27=JUL-78 iat PAGE 239 


POWER DOWN AND UP ROUTINE 


000 DF65: .BYTE 0,0,0,0,0 
000 DF66: .BYTE 0,0,0,0,0,0,0,0 
600 
000 DF77: «.BYTE 0,0,0,0,0.0 
000 

-EVEN 


«END 


SEQ 0238 





G 3 
CZRJICO, RPO4/S/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL=78 13:06 PAGE 241 SEQ 0239 
CZRJIC.P11 27-JUL=78 13:05 CROSS REFERENCE TABLE == USER SYMBOLS 


2788 2841 


9179 10946 
2829 3129 3814 4003 4175 4259 6634 6800 7749 8167 


2273* 2790 2848 3124 3266 3383 3493 3693 3809 4021 4176 
6629 6795 7752 


yy ty 


3241 
8721 
8716 9374 


000014 
002374 





ee 
CZRJICO, RPOG/5/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL-78 13:06 PAGE 242 SEQ 0240 
CZRJIC.P11 27-JUL-78 13:05 CROSS REFERENCE TABLE == USER SYMBOLS 


37378 


042336 


10440. 
041326 


041456 


000040 
043474 


042444 


+A te ode tt th th th th tA tA tA tA tA tA AA AAA AAA AF A 


6357 
106534 


$M 6A FA 2 1 HK A 


10926 10929 10946 
10926 10929 10948 


109564 
843 109684 
1463 1475 109724 
1035 1096 1130 1154 1226 1335 1346 1377 1396 


20 2 1 1 1 44 164 168 1444646641144 1S 


109764 
072023 758 10959# 
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CZ2RJIC.P11 27-JUL-78 13:05 CROSS REFERENCE TABLE == USER SYMBOLS 


072032 853 865 879 893 905 913 920 930 939 950 973 994 
28 1046 1083 1108 1121 1143 1183 1202 1214 1239 
072072 1360 1370 1388 1408 1427 =109624 


1188 1224 1333 1344 1375 1394 


918 928 937 948 971 992 
1119 1141 1181 1200 1212 1237 
107234 


= 000004 
001142 8776* 9087* 
000174 
100000 
000020 


000001 
017352 
= 000400 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
1 
4 
$ 
4 
4 
4 
4 
1 
1 
1 
4 
4 
1 
1 
1 
1 
{ 
{ 


3731 


3997 
5629 


4138 


4044444444 


10929 


109134 
842 
1462 
1034 


09324 
071526 109164 
071546 67 878 


7 852 864 
1011 1027 1045 1056 
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CZRJICO, RPO4/5/6 FCTNL CTLR1 C 
CZRJIC.P11 27-JUL=78 13:05 CROSS REFERENCE TABLE == USER SYMBOLS ¢ 

1281 1293 1359 1369 1387 1407 1426 §109194 $ 
DTS1 071662 1168 109354 $ 
DT6 071562 777 =—s_: 109214 $ 
DT60 071700 1255 109394 $ 
DT61 071716 1264 109424 $ 
DT62 071730 1273 = 109444 $ 
DT65 071742 1305 109464 $ 
DT66 071756 1323 109484 $ 
DT7 071574 785 109234 $ 
DT77 071776 1417 = 109524 
DVA = 004000 15304 2372 2469 2585 2747 3663 3790 3949 4142 4226 4406 4512 4623 

4748 4868 4988 5099 5225 5345 5481 5622 5789 5913 6078 6204 6378 

6496 6609 6775 7197 7362 7539 8159 
ECH = 000100 15614 
ECI = 004000 16554 3430 3540 4263 4377 4484 4485 4595 4596 4719 4840 4841 4959 

5071 5072 5196 5317 5318 5451 5593 5594 5761 5883 5884 6049 6176 

6177 6347 6467 6468 6694 6695 6862 6863 7016 7081 7082 7168 7169 

7335 7336 7507 7508 7621 7702 7800 7801 
EC] 002412 17834 9199 1 
EC2 002414 17844 9203 $ 
EMTVEC= 000030 6294 1915* 1916* 2035* 2072* $ 
EM1 051120 713 93904 $ 
EM10 051640 789 94504 $ 
EmM100 326 1421 106074 $ 
EM101 10 1430 1 { 
EM102 72 1442 106254 b| 
EM103 066551 1454 106334 1 
EM104 35 1466 106424 1 
EM11 051707 802 94574 1 
EM12 052014 816 94694 1 
EM13 052122 830 94814 1 
EM14 052244 846 94954 1 
EM15 052317 856 95034 1 
EM16 052460 868 95214 1 
EM17 882 9537# 1 
E 051147 725 93944 4 
EM20 052743 896 95554 1 
EM21 053107 95734 1 
EM22 053162 916 95814 { 
EM23 053235 923 95894 ‘ 
EM24 00 933 96074 
EM25 053543 942 96254 
EM26 053725 953 96454 
EM27 054015 965 96554 
EM3 1236 737 94044 
EM30 054233 976 96824 
EM31 054313 986 96914 
EM32 054530 997 97174 
EM33 054637 1005 97298 
EM34 055041 1015 
EM35 55065 1021 97574 
EM36 055303 1031 97824 
EM37 360 1038 97904 
EM, 051317 748 94134 
EM4O 055575 1049 98164 





CZRJICO, RPO4/5/6 FCTNL CILR1 
CZRJIC.P11 27-JUL-78 13:05 


056265 


rmnrnr 
NOUS NN HO OONUE AWN 


SRISSGU=BSUGRRANGLIAR= 


0 
6 
781 
7 


FILL 2402 
FILLRE 041360 


kK 3 
MACY11 30A(1052) 27=JUL-78 13:06 PAGE 245 
CROSS REFERENCE TABLE == USER SYMBOLS 


105124 


2831 4310 7751 7975 7987 
1927* 1937* 2037" 2045* 2074* 
8647* 10932 

10926 10929 10948 

10929 10948 

10929 10948 


8740* 


8742* 


8745* 


SEQ 0243 





an 


2 
CZRJICO, RPOG/S/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL=78 13:06 PAGE 246 SEQ 0244 
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7559 7562 7737 80734 
8229s 


041302 
010000 


002422 


xKaKEKEK 





CZRJICO, RPO4/5/6 FCTNL CTLR1 


CZRJIC.P11 


INUNIT 004752 
IOTVEC= 20 
R 0001 


172316 
LA 002420 
LBT = 002000 
LF = 000012 
LT. = 000105 


MCLK = 2 
MCPE = 020000 
MHS = 001000 
MINX = 
C = 000250 
= 010000 
MPE = 
MR 002402 
MRD = 000020 
MSE = 000020 
MSTCK = 000010 
= 000040 
MXF = 001000 
NED = 010000 
NEM = 004000 
NHS = 002 
NOPERA (002422 
NOPUSH 004724 
NOUNIT 004720 
NUNIT 004722 


27-JUL=78 1 


M 3 
MACY11 30A(1052) 27=JUL=78 13:06 PAGE 247 
CROSS REFERENCE TABLE == USER SYMBOLS 


2931* 
1913* 
2436 


2975 
1914s 
3222 


22018 


3239 


7727 


28804 
35 


2960 


3105 
2415 
2246* 
3242 


7728 


29904 
3 


2908 
3950 


3320 
4013 


30344 
3 


3839 
4143 


67444 


7593 
4227 


31094 
83 


SEQ 0245 


N 3 
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002372 


4302 8121 
4281* 4282 4284* 


8154* 10942 10944 


6782 


| 


3874 4059 


91274 9213* 9230 9234* 


7528 


9370* 


002446 


002462 
002426 
002450 





B 4 
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REGADR 004600 3802* 3963* 3979 4154* 


047130 
047136 
003534 


002432 


002274 
002340 
002312 
002334 


002300 


3599* 3731* 3742* 7972+ 
8602* 


3162 3207 3350 3389 





C 4 
CZRJICO, RPO4/5/6 FCTNL CTLR1 MACY11 30A(1052) 27=JUL=78 13:06 PAGE 250 SEQ 0248 
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004750 
006146 


000004 
Bese 


RPVECT 
RPOS 


RPO6 
RP4VEC 
RTN 
RUN 


SAVER 041624 


SAVERE 004612 


7 
7728* 7729* 7752* 
3956 4019 4149 





D 4 
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177574 


6569* 


1935* 2049 
8762 8975* 


8933 


2101 2122 





E 4 
CZRJICO, RPO4/5/6 FCTNL cur) MACY11 30A(1052) 27=JUL=78 13:06 PAGE 252 SEQ 0250 
ZRJIC.P11 27-JUL=78 13:05 CROSS REFERENCE TABLE == USER SYMBOLS 


2903 


83354 


3952s 3969» 3998* 


2675 30124 
37504 3848 
4682 

67314 


3628 


2097* 2381* 2411* 2643* 
3 3609* 3729* 3751* 
5409*  5690* 5978*  6268* 6732* 6902 72 
1 10921 10923 10926 10929 10932 10935 10939 


20314 


2754 28894 
2905 2915 30114 


020162 





F 4 
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20954 
40704 


42914 
43284 


7904 7915 


2206* 
sei 


8599 
2231 





G 4 
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ee 


2581 2592 
3970 971 


10913 
10916 
8343* 8350 


RN 


8344* 350 
8342* 10913 
8279 8291 


10 
14 
16 
56 
13 


10926 10939 10942 10944 
3794* 3801* 3962* 3978» 
4759s 


5626* 
6382* 6507* 


001126 





CZRJICO, RPO4/S/6 FCTNL CTLRI 
CZRJIC.P11 


001216 
5642 


27-JUL=78 13:05 


H 4 
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7201* 7208*  7366* 
10916 
9090 


8874* 

1921 
6924 
6924 
6984 


8865 


1915 
691 


3342 
9215 


79224 


8753 
8775* 


9094 
10942 


9091* 
6 


7373* 


10919 
9110 


8759* 
8780 


9110 
10944 


7543* 


10921 


6944 
6944 


7004 


5507 
9244 


8780 


9221 
10946 


7550* 
10932 


6954 
6954 


7014 


5512 


9085* 


10913 
10948 


7993* 
10935 


9110 


10916 
10952 


7994 
10939 


10919 


8279* 
10952 


8851 


10921 


3958* 


8645* 


8291* 


8881 


10923 


3974* 
4869* 
5630* 


6610* 
10919 


8359« 


8977 


10926 


4150* 


6617 
10932 


SEQ 0253 


8375* 


9036 


10929 


4157* 
4989* 
5797* 
6776* 
10935 





CZRJICO, RPO4/ 
CZRJIC.P11 


SMXCNT 
$NULL 
SNWTST= 


ckeeee 
eet i ti 
051106 
044730 
000117 


000000 
177777 
045136 


000200 
167770 


000009 
001212 


$TKQOU 
$TKQSR 045654 


5/6 FCTNL CTLR1 
27-JUL-78 13:05 


1 4 
MACY11 30A(1052) 27=JUL=78 13:06 PAGE 256 
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87798 
8 


23504 
35954 
54064 


93204 
3843 


9360* 93784 
1917 


9011* 


24094 
37274 
59764 


2663* 5407* 
8956 
8944 
8931* 


26414 
37494 
67304 


7925* 


7882* 


7924" 


8760* 


SEQ 0254 








J 4 
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001144 8890* 8911* 8913 8919* 8935 8945* 
5736 


2154* 
2363* 2392* 6573* 


93434 


072142 


110 on 
9377 8109114 109974 


- ABS. 072142 000 


ERRORS DETECTED: 0 


CZRJIC,DSKW:CZRJIC.SEQ/SOL/NL : TOC :MC :ME : CND=SYSMAC.. SML[400,1066),CZ2RJIC.P110400, 1424] 
RUN-TIME: 46 52 2 SECONDS 
RUN-TIME RATIO: 267/102=2.6 





K 4 
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CORE USED: 38K (75 PAGES) 


DOCUMENT PAGES: 256 





